excel - 如何将 xls 文件导出到从文件夹中读取它们的 txt 文件（Visual Basic）？

Question

我正在尝试从 u:\test 文件夹中读取文件 *.xls。每个文件中都有一张纸。我想复制单元格 B1 并将其粘贴到 A1 的新文件中。然后我想复制范围 B1:B57 并将其粘贴到 B1:B57 的新文件/工作表中。然后我想复制范围 K1:U57 并将（仅值）复制到新的文件/工作表 C1 位置。我在 Visual Basic 6 中执行此操作，但在找出如何使用范围函数时遇到问题……我尝试激活并选择工作表（1）。然后我想使用命令Set SrchRange = ActiveSheet.Range(Cells(2, 1))。我收到错误 1004 应用程序定义或对象定义错误。在这条线上。如果我成功地选择/复制/粘贴单元格区域到新文件/工作表，那么我想将当前文件保存为 txt，给定 .txt 扩展名。如何更正此代码以达到目标？

Sub FromExcelToNpad()
    'export activesheet as txt file
    Dim my_files As String
    Dim folder_path As String
    Dim wb As Workbook, NewWB As Workbook
    Dim ws As Worksheet
    Dim SrcRange As Range
    folder_path = "u:\test"
    my_files = Dir(folder_path & "\*.xls", vbDirectory)
    Do While my_files <> vbNullString
       Set wb = Workbooks.Open(folder_path & "\" & my_files)
       Set ws = wb.Sheets(1)
       Set NewWB = Workbooks.Add
       ws.Activate
       ws.Select
       Set SrchRange = ActiveSheet.Range(Cells(2, 1))
       wb.ActiveSheet.UsedRange.Copy NewWB.Sheets(1).Range("A1")
       wb.Close True
       Application.DisplayAlerts = True
       my_files = Dir()
    Loop
   
End Sub

更新 范围和单元格被复制：

Dim my_files As String
Dim folder_path As String
Dim wb As Workbook, NewWB As Workbook
Dim ws As Worksheet
folder_path = "u:\test"
my_files = Dir(folder_path & "\*.xls", vbDirectory)
Do While my_files <> vbNullString
   Set wb = Workbooks.Open(folder_path & "\" & my_files)
   Set ws = wb.Sheets(1)
   Set NewWB = Workbooks.Add
   ws.Range("B1").Copy NewWB.Sheets(1).Range("A1")
   ws.Range("B3:B57").Copy NewWB.Sheets(1).Range("A3:A57")
   ws.Range("K1:U57").Copy
   NewWB.Sheets(1).Range("B1:L57").PasteSpecial xlValues
   wb.Close True
   With NewWB
        Application.DisplayAlerts = False
        .SaveAs Filename:=folder_path & "\" & my_files, FileFormat:=xlText
        .Close True
        Application.DisplayAlerts = True
   End With
   wb.Save
   my_files = Dir()
Loop

我正在尝试将文件另存为 .txt 。我有错误运行时错误 - 自动化错误。还有一个对话框询问我是否要保存“页面”中的数据。如何关闭此功能？

标签： excelvbafiledirectoryexport