Question

vb6.0，如何把数据导入excel

vb编了一个程序，每个循环会得到两个数据，想把这两个数据导入到excel里，请问有源代码吗？解决问题追加20分

Answer 1

假设你的两个数据为m,n
Dim D_Ex As Object
Dim D_ExBook As Object
Dim D_ExSheet As Object
Set D_Ex = CreateObject("Excel.Application")
Set D_ExBook = D_Ex.Workbooks.Open(FullName) 'FullName 是你excel的地址及文件名，如"C：\1.xls"。
Set D_ExSheet = D_ExBook.Worksheets(1)
D_Ex.Visible = False true也行，false看不见excel
D_Ex.Cells(i , 1).Value=m
D_Ex.Cells(i , 2).Value=n i是你循环的次数，循环一次i加1
D_ExBook.Save 保存
D_ExBook.Close 关闭
D_Ex .Quit 退出
就是这些，个人建议不要每次都打开和关闭excel，你可以在程序开始的时候打开excel，在不需要存数据的时候关闭，节省内存。也可以把数据存入一个TXT内，统一转换。

Answer 2

问题具体化一些，或者有实例（原始数据 转换后的数据）发过来；可以解决

追问

怎么联系你？这个地方发不了那么多啊