☰

如何粘贴.bat 文件中的特定单元格？

tag-icon • tag-icon microsoft-excel vba microsoft-excel-2016
如何粘贴.bat 文件中的特定单元格？

我有此代码，可将我的所有 Excel 值导出为 .bat 格式，我试图导出除标题之外的所有值。这是代码：

Public Sub Export_File_as_BAT()

Dim wbkExport As Workbook
Dim shtToExport As Worksheet

Set shtToExport = ThisWorkbook.Worksheets("Export")     
Set wbkExport = Application.Workbooks.Add
shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
Application.DisplayAlerts = False                      
wbkExport.SaveAs Filename:="C:\Users\" & Environ("Username") & "\Desktop\User_Tableau.bat", FileFormat:=xlTextPrinter, Local:=True
Application.DisplayAlerts = True
wbkExport.Close SaveChanges:=False
Sheets("Export").Select
Range("A2").Select

End Sub

我似乎无法修复它。任何帮助都将不胜感激。

谢谢

这是我正在尝试做的一个例子。 Excel 图像

答案1

您可以使用此 VBA 代码作为标准模块：

Sub Export2BAT()

    Dim strFileName As String

    strFileName = InputBox("Enter Name Of New Workbok", "Workbook Name")
    If Trim(strFileName) = vbNullString Then Exit Sub

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Range("A2:D16").Copy
    Sheets.Add.Range("A1").PasteSpecial xlPasteAll
    Application.CutCopyMode = False
    ActiveSheet.UsedRange.EntireColumn.AutoFit
    ActiveSheet.Move
    ActiveWorkbook.SaveAs "Your Path Here\" & strFileName & ".bat", xlOpenXMLWorkbookMacroEnabled
    ActiveWorkbook.Close False

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

注意：

  • 在输入框中输入新工作簿名称（仅限名字）。
  • 您也可以将此代码与命令按钮一起使用。
  • 范围A2:D16和目标 Wbook 范围A1是可编辑的。

相关内容