'データ内にカンマが含まれているCSVファイルの取り込み Sub GetCSVCamma() Dim filePath As String Dim F As Integer Dim strLine As String Dim strField As Variant filePath = "C:\Users\XXX\基準2.csv" F = FreeFile() Open filePath For Input As #F L…

'ファイルを一括でコピー'引数：CopyFileAll(フォルダーパス & "\*.csv", フォルダーパス)Sub CopyFileAll(argTargetWildFilePath As Variant, argDestFolderPath As Variant) Dim objFso As New FileSystemObject With objFso 'ファイルを一括でコピー objF…