0

VB マクロを使用して自動化する必要があります。特定のフォルダーから xls ファイルのセットを取得し、それらを csv に変換してから、ファイル名に従ってそれを分離する必要があります。 benifit という名前で、すべての資金は Funds というフォルダーに入れられます (あるパスにフォルダーを作成する必要があります)。

パスをハードコーディングして xls を csv に変換するコードがありますが、それを wrt name で分離する方法がわかりません。

任意のアイデアやコードをいただければ幸いです

前もって感謝します

<>

以下のコードは、ファイルが存在する入力パスを取得し、それらを csv に変換して一度に出力パスに変換します。

今、私はこのコードを

 Sub ConvertXLStoCSVNoRules(mySourcePath, myKeywordPath)
Set MyObject = New Scripting.FileSystemObject
Set strInputFolder = MyObject.GetFolder(mySourcePath)
Set strOutputFolder = MyObject.GetFolder(myKeywordPath)
strInputFolder = strInputFolder & "\"
strOutputFolder = strOutputFolder & "\"
strXLSFile = Dir(strInputFolder & "*.xls*")
counter = 0
row = 13
Worksheets("Main").Cells(row, 1).Value = "Files processed at " & Now
row = row + 1
On Error Resume Next
Do While strXLSFile <> ""
    counter = counter + 1
    row = row + 1

    'strCSVFile = Left(strXLSFile, InStrRev(strXLSFile, ".")) & "csv"
    strCSVFile = Left(strXLSFile, 4) & " SL" & ".csv"

    'Add into the first sheet for recording purpose
    Worksheets("Main").Cells(row, 1).Value = strXLSFile

    Workbooks.Open strInputFolder & strXLSFile
    ActiveWorkbook.SaveAs strOutputFolder & strCSVFile, xlCSV
    ActiveWorkbook.Close False
    strXLSFile = Dir

Loop
    'MsgBox ("Files completed " & counter)
    row = row + 1
    Worksheets("Main").Cells(row, 1).Value = "Files completed " & counter & " at " & Now
End Sub
  • 新しいフォルダー内のファイル名に関してファイルを分類します
  • たとえば、フォルダーには100個のファイルがあり、上記のコードはそれをcsvに変換して特定のパスに配置します

しかし、私はそれを強化したいすべてのファイルがファイル名に利点を持っているように、コードはcsvまたはxlsファイルをファイル名から分離する必要があり、benifitsという新しいフォルダに来る必要があります

資金を含むすべてのファイルは、資金と呼ばれる新しいフォルダーに入る必要があります。これは、csv 変換の前または後に発生する可能性があります。

最善の方法を教えてください

4

1 に答える 1