如何用VB把txt文件指定内容写到EXCEL中
发布网友
发布时间：2022-04-23 23:16
共1个回答
热心网友
时间：2023-10-13 08:40
Dim
exlApp
As
Excel.Application
Dim
exlBook
As
Excel.Workbook
Dim
Str
As
String,
I
As
Integer
Open
App.Path
&
"\test.txt"
For
Input
As
#1
Set
exlApp
=
New
Excel.Application
exlApp.Visible
=
True
Set
exlBook
=
exlApp.Workbooks.Open(App.Path
+
"\test.xls")
'打开已有Excel文件
'向Excel表中写入数据，Sheets(1)为第1个工作表，Cells(行号,列号)是单元格
I
=
0
While
Not
EOF(1)
Line
Input
#1,
Str
I
=
I
+
1
exlApp.Sheets(1).Cells(I,
1)
=
Str
Wend
Close
#1
'关闭文本文件
exlBook.Close
'关闭工作簿
exlApp.Quit
'关闭Excel
