Question

在 VB 中怎么从D:\1.xls中读取2,2单元格中的数据，并以这个数据为名，新建一个txt文档

在 VB 中怎么从D:\1.xls中读取2,2单元格中的数据，并以这个数据为名，新建一个txt文档，文档名就是那个数据

Answer 1

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim s As String
Set xlApp = CreateObject("excel.Application")
Set xlBook = xlApp.Workbooks.Open("d:\1.xls")
'xlApp.Visible = True
Set xlSheet = xlBook.Worksheets("sheet1")
s = xlSheet.Cells(2, 2)
Open "d:\" + s + ".txt" For Output As #1
Close (1)
End Sub