【ChatGPT】ChatGPT に csv ファイルをExcel にインポートするプログラムを作成させる
ChatGPT に Windows 環境において csv ファイルをインポートしてExcel のセルに取り込むサンプルプログラムの作成を依頼した。
【質問】
Excelの VBA で c:\temp\test.csv をインポートするサンプルプログラムを作成して
【ChatGPTの回答】
Sub ImportCSV()
Dim myFile As String
Dim myRange As Range
' ファイル名を指定
myFile = "c:\temp\test.csv"
' インポートする範囲を選択
Set myRange = ActiveSheet.Range("A1")
' CSVファイルをインポート
With myRange.Parent.QueryTables.Add(Connection:= _
"TEXT;" & myFile, Destination:=myRange)
.Name = "test"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
' インポートが完了したらメッセージを表示
MsgBox "CSVファイルをインポートしました。"
End Sub
凄く細かく作成してくれました。細かいオプションまで。実際に動かしたところ、無事動作しました。
しかも細かいセルのサイズまで指定してくれています。しかしそこまで指定する必要はない。
しかし長い。そこで短くするために10行で作成してもらいました。
【質問】
xcelの VBA で c:\temp\test.csv をインポートするサンプルプログラムを10行で作成して
【ChatGPTの回答】
Sub ImportCSV()
With ActiveSheet.QueryTables.Add(Connection:="TEXT;c:\temp\test.csv", Destination:=Range("A1"))
.TextFileCommaDelimiter = True
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.Refresh BackgroundQuery:=False
End With
End Sub
すごい!工夫して細かく作成してくれました。当然正解。
ファイル名を変数にせず、With の中に組み込むなどコードの工夫がされています。
あり得ない能力。。。
ChatGPT に関する用語集 | ChatGPT Glossary
個人的に独自に調査した事項をまとめています。各ベンダーとは全く関係がありません。
内容に誤りがある場合や情報が古くなっている場合があります。その場合でも修正されるとは限りません。
参考としてサイト閲覧ください。万が一誤りがあり損失等が発生しても保証しません。あくまでも自己責任でサイトを閲覧ください。