• 0

Excel from VB Question


Question

HI all ,

I've been working on this for a while now and Obviously i'm probably missing something really easy ,

i'm trying to get data to goto excel from my VB 6 app , now the requirements i want my program to perform are

i do not want to see excel open i just want my app to write to the excel file in C:\Data\excel-data.xls

if i re-run my app i do not want it to tell me that it already Exists, Just write to the excel file and save it to the same location by same filename C:\Data\excel-data.xls

each day my app runs it puts data on separate rows by the day of the month " already have this done"

here is my simple VB code to write to excel, if anyone can help me out would be great !!

'Here is the Simple Program from Me

'To Send the Data from Vb To Microsoft Excel

Dim BangXl As Excel.Application

Private Sub Command1_Click()

BangXl.Workbooks.Add

BangXl.Range(Text1.Text).Value = Text2.Text

BangXl.Visible = True

End Sub

Private Sub Form_Load()

Set BangXl = CreateObject("excel.application")

End Sub

Private Sub Form_Unload(Cancel As Integer)

BangXl.Quit

End Sub

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Private Sub Command1_Click()

???Dim xlApp As Excel.Application

???Dim wrkbk As Workbook

???Dim wrksht As Worksheet

???Dim var As Variant

???Set xlApp = New Excel.Application

???Set wrkbk = xlApp.Workbooks.Open("PATH TO YOUR EXCEL FILE")

Wrkbk.visible = false

???Set wrksht = wrkbk.Worksheets("Sheet1") 'Specify your worksheet name

???var = wrksht.cells(a1).value

Var = 'vba userform control data

???wrkbk.Close

???xlApp.Quit

???Set wrksht = Nothing

???Set wrkbk = Nothing

???Set xlApp = Nothing

End Sub

Or you could write your data to a textile and then have the txtfile loaded into your excel document as a datasource and refresh the connection on workbook load which would be my preference to be honest.

I have a method for work I implemented which does just this for reporting purposes.

Link to comment
Share on other sites

This topic is now closed to further replies.