Sub CsvImport001Management02()'インポート CSV(UTF-8)'項目にカンマ・改行が含まれているデータ Dim i As Integer Dim ado_strem As New ADODB.Stream Dim strLine As String, strLine2 As String Dim tmp As Variant, tmp2 As Variant Dim canma As Strin…

ローカルファイル保存先 ファイル保存先 ファイル名 済 パス Option Explicit 'sheetDim reSh As WorksheetDim wrSh As WorksheetDim rebk As WorkbookDim wrbk As Workbook 'CellsDim wrRow As LongDim wrCol As IntegerDim reRow As LongDim reCol As Inte…

＜シート＞ 入力規則は使わないようにする リストはり使わないようにする 動的な変数はなるべく 使用せずに設定から値を取るようにする 複雑（長文）な式は使用しない ＜VBA＞ 複雑な公式は使用しない 起動プログラム（ThisWookbook） はなるべく 使用しない…

Sub ExportSrt_101_01(argFldrPath As String, argFileName As String, argTransId As Long) Dim cn2 As ADODB.Connection Dim rss2 As ADODB.Recordset Dim strSql2 As String Dim buf As String Dim bufLine As String Dim lines Dim line As Variant ' Fo…

'データ内にカンマが含まれている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…