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…

'ファイル更新日付チェック。ファイルが更新されていた場合、更新フラグを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 …