你好，怎么用VB实现读取excel的内容，并存储为txt格式文件啊，谢谢

'定义EXCEL对象
Dim xlApp As Excel.Application, xlBook As Excel.Workbook, xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(1) '设置活动工作表
'获取有效数据列数
C= xlSheet.UsedRange.Columns.Count
'获取有效数据行数
R= xlSheet.UsedRange.Rows.Count
For i = 1 To R

Getstr=""
for j=1 to C
Getstr = Getstr & Trim(xlSheet.Cells(i, j)) & ","
next j
pring "第" & i & "行：“ & Getstr
Next i

供参考

你用宏，贴进下面的就好，文件名改成你要的
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"D:\资料.txt", FileFormat:=xlText, _
CreateBackup:=False
Application.DisplayAlerts = False

vhgf手工费股份工会费法国恢复规划