VB显示Excel的源代码

[liuyinax]

VB程序中,已能用VB程序从Excel中读出数据,但写入数据后,看不到结果,只有显示Excel后才能看结果。请问：VB编程时，显示Excel的源代码怎样写?谢谢回复!

[孤独剑_LPZ]

先看你的代码

[舉杯邀明月]

Dim objExcelApp As Object
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True

[myjisgreat]

Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(CommonDialog1.FileName)
Set xlsheet = xlBook.Worksheets(1)
xlsheet.Activate
xlBook.RunAutoMacros (xlAutoOpen)
dim da as string
da = xlsheet.Range("D1").Value '输出的的d1的值

'或者
'da = xlsheet.cell(1,1).Value

[贝隆]

写入后关闭，再打开。

[chinaboyzyq]

写入后要保存。