2018-01-01から1年間の記事一覧

【WScript.Arguments】ドラッグ&ドロップしたtxtファイルの中身を配列に格納する

VBS

Dim GetPathSet GetPath = WScript.Arguments'ドラッグ＆ドロップされていなければ中断If GetPath.Count = 0 Then MsgBox "ファイルをドラッグ＆ドロップしてください。",,"警告" Wscript.QuitElseIf GetPath.Count > 1 Then MsgBox "2つ以上のファイルがド…

CSVを取り込む　その2

VBA

Dim FileNDim shTHIS As WorksheetDim tmpDim strBufDim clm'取り込むファイルをダイアログで選択、キャンセルで中断FileN = Application.GetOpenFilename("CSVファイル,*.csv")If FileN = False Then Exit Sub'取り込み先のシートを指定Set shTHIS = ThisWo…