＜シート＞ 入力規則は使わないようにする リストはり使わないようにする 動的な変数はなるべく 使用せずに設定から値を取るようにする 複雑（長文）な式は使用しない ＜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…

'ファイル更新日付チェック。ファイルが更新されていた場合、更新フラグをtrueにする。Sub ChackCreateDate() 'File変数 Dim objFso As New FileSystemObject Dim objFolder As Object Dim objFiles As Object Dim objFile As file Dim objDate As Date Dim …