Listbox to existing Excel

Question

I am trying to get the results from a listbox into an existing Excel file. I have googled extensively, but I don't seem to be able to come up with anything from a .NET basis. I will show you what I have (primitive and incomplete). Please give me a direction to follow.

Dim xlApp As New Excel.Application

Dim xlWkBook = xlApp.Workbooks.Open("C:\NFL_2012.xls")

Dim xlWkSheet = xlWkBook.Worksheets("Sheet_1")

    xlWkSheet.Range("A1").Value = ListBox10.Items.Item(0)

    xlWkSheet.Range("B1").Value = ListBox10.Items.Item(1)

Answer 1

Dear Haider ali


    We make Query for you try this



-------------------------------------------------------------------------------
first create a function for date range in Sql Query
-------------------------------------------------------------------------------
create Function GetDateRange (@month int,@Year int)
RETURNS @OutTable Table   
( 
    dt datetime 
) 
As
Begin
    declare @FRDate datetime
    declare @ToDate datetime

    SET @FRDate = convert(varchar(10), convert(varchar(4), @Year) + '/' + convert(varchar(2),@month) + '/01' ,112)
    set @ToDate= dateadd(MM,1,@FRDate)
    set @ToDate= dateadd(DD,-Day(@FRDate),@ToDate)

    Begin


    with im as
    (select @FRDate as [nom]
        union all
     select [nom] + 1 from Im where [nom] < @ToDate)

    insert into @OutTable
    select *  from im

    ENd
return
End
-----------------------------------------------------------------------------------------------------------------------
After Create Query Like This
-----------------------------------------------------------------------------------------------------------------------
declare @month int
set @month=4
Declare @Year int
set @Year = 2012

select e.EmpName, Qry.AbsentDate from
(select e.empid ,DTRAnge.dt as AbsentDate
from employee e
cross apply (select * from dbo.GetDateRange(@month,@Year)) as DTRange ) as Qry
inner join employee e on e.empid=Qry.EmpId
left outer join   attandance A on A.empid = Qry.EMpID And  A.dateofprentday = Qry.AbsentDate
where  isnull(A.EmpId,0) = 0