在vb6中编辑Excel数据

Question

Would appreciate if anyone could give me an idea how to edit MS Excel data through some form (vb6). User should not directly edit into excel.

Any sample code would be much of thanks.

Regards

Answer 1

You can use standard form and controls as interface for user. Then, send content of this controls to excel cells.

Dim ExcelObj As Object
Dim ExcelBook As Object
Dim ExcelSheet As Object

Set ExcelObj = CreateObject("Excel.Application")
Set ExcelBook = ExcelObj.Workbooks.Open(strPathToExcelFile)
Set ExcelSheet = ExcelBook.Worksheets(1)

ExcelSheet.Cells(1, 1) = MyForm.Text1.Text
ExcelSheet.Cells(1, 2) = MyForm.Text2.Text   

ExcelBook.Close (True)

ExcelObj.Quit   
Set ExcelObj = Nothing

This is one of many ways to do it ...