-1

ワークブック「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
4

1 に答える 1

2

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 を使用しているのかわかりません。
もちろん、必要に応じてファイル形式を変更できます。

于 2013-08-21T12:14:25.680 に答える