经验直达：
- 请问怎么样在vb里用excel文件
- 怎样使用vb创建excel文件
- 怎样在vb中导入excel表格数据
一、请问怎么样在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
二、怎样使用vb创建excel文件
测试成功，原码：
Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
Dim xlrange As Excel.range
Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application") '第一层
Set xlbook = xlapp.Workbooks.Add
xlapp.Visible = True
xlbook.sheets(1).range("a1") = "新建成功"
xlbook.SaveAs App.Path & "/测试.xls"
xlbook.Close
End Sub
三、怎样在vb中导入excel表格数据
可以看vb自带的例子visdata ， 其中对txt文件和对excel文件的操作都有很详细的说明 。
也可能通过以下方式：
引用micsosoft Excel x.0 object Library
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
FileCopy App.Path"rpf.xlt", App.Path"tmp.xlt"
FileName = App.Path"tmp.xls"
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(FileName)
xlApp.Visible = True
Set xlsheet = xlBook.Sheets("sheet1")
with xlsheet
.Cells(1, 1) =变量
end with