Question

我想在工作簿“SC Macro”的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的原因如果需要，您可以更改文件格式。

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

1 个答案: