请问怎么样在vb里用excel文件 vb输入到excel中

经验直达:

  • vb输入到excel中
  • 请问怎么样在vb里用excel文件

一、vb输入到excel中


【请问怎么样在vb里用excel文件 vb输入到excel中】以此为例,在Excel中调用VBA程序的操作步骤如下(Excel2007为例):
1.选择”开发工具“选项卡 , 点击”Visual Basic“(或者用快捷键Alt F11) 。
请问怎么样在vb里用excel文件 vb输入到excel中

2.出现VBA编辑界面,注意看左侧,选择需要运行代码的工作表,此例为Sheet1;双击进入Sheet1相关程序编辑界面 。
请问怎么样在vb里用excel文件 vb输入到excel中

3.在程序编辑区域 , 复制上上述代码 。
请问怎么样在vb里用excel文件 vb输入到excel中

4.点击上面的三角号,运行程序 。
请问怎么样在vb里用excel文件 vb输入到excel中

5.关闭VBA界面,返回工作表,就可以看到程序运行结果,如下图:
请问怎么样在vb里用excel文件 vb输入到excel中

6.如果再次运行程序 , 可以用快捷键Alt F8(或者步骤1中的”宏“),出现如下图界面,选择要运行的宏,点击执行即可 。
请问怎么样在vb里用excel文件 vb输入到excel中



二、请问怎么样在vb里用excel文件


引用microsoft excel XX.X object library 即可 。在project 菜单倒数第4项 。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim St As Excel.Worksheet

Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("c:123.xls", , True)
xlApp.Visible = False
Set St = xlBook.Worksheets("Sheet1")
text1.text= St.Cells(1, 1)
..............
xlBook.Close False
Set xlApp = Nothing

相关经验推荐