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

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

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

你好！ 可以帮你 仅代表个人观点，不喜勿喷，谢谢。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息