excel - 从一个 Excel 工作簿复制到新工作簿

Question

我想复制工作簿“SC 宏”的 A 列中的数据并在“特定文件夹”中创建一个“新工作簿”（此路径在 SC 宏工作簿的单元格 C3 中给出）并将数据复制到新的工作簿。在新工作簿的 B 列中，我希望列中的数据相同，但略有变化。例如，如果 A1 包含“John Isner”，我希望 B2 包含“*John*Isner*”。

  Sub File()

  Dim fs As Object
  Dim a As Object
  Dim lngRow As Long
  Dim X


  Set fs = CreateObject("Scripting.FileSystemObject")
  Set a = fs.CreateTextFile("S:\cyan\nyan\" & Environ("username") & ".csv", True)
  X = Range([A1], Cells(Rows.Count, "A").End(xlUp)).Value2


  For lngRow = 1 To UBound(X)

  a.writeline X(lngRow, 1) & "," & X(lngRow, 1)

  Next


  a.Close

  End Sub

Answer 1

Excel VBA 中的快速入门：

Sub copyRangeToNewWb()
    Dim wb As Workbook
    Set wb = Workbooks.Add
    ThisWorkbook.Worksheets(1).Range("A1").CurrentRegion.Copy Destination:=wb.Worksheets(1).Range("a1")
    wb.SaveAs "s:\somefolder\somefilename.xls", xlExcel7
    wb.Close
End Sub

我不明白你为什么在这种情况下使用 Scripting.FileSystemObject 。
当然，如果需要，您可以更改文件格式。