ChatGPTとVBA

最近話題のchatGPTを少し使ってみた

　割と高度なプログラムが文章書くだけで作ってくれるということで、気になっており試してみた。最初そもそもキャパオーバーと出続けて（というか夜が更けてくると大体こうなる）、使えなかったが、さすがに昼間は使えた。普通の質問でもいいがやはりプログラム作成はすさまじい。VBAしか試していないが、どこからともかくサンプル取ってきているというわけではなく、こちらの要望通りのものを作ってくれる。csvを読み込んで6列目のみをコピーして1列ずらしながらシートに貼り付けていくようなプログラムを作ってもらうとその通りに作ってくれる。ちょっとこれは一気にVBA作成のハードルやコストが下がった。ただ、プログラミングが陳腐化したというよりは、強い人は使いこなせば相当高速にプログラムを作れるようになったし、まったくわかっていない人は使えないかもしれないが、少なくとも私の周りだとなかなか教えてくれる人もいないので、相当に助かる。業務で使いたいが、業務で使っていいかは謎（多分無理だろうな…でも相当使いたい。）

ChatGPTに以下のようにお願いした。
フォルダをダイアログで選択し、選択したフォルダ以下のcsvファイルをすべて読み込んでそのiファイル目の6列目のみをコピーしてシート2の(i+1)列目に貼り付るVBAのプログラムを作ってください

以下回答

Sub ImportCSV()

Dim fd As FileDialog
Dim selectedFolder As String
Dim file As String
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer

Set fd = Application.FileDialog(msoFileDialogFolderPicker)

With fd
    .Title = "フォルダを選択してください"
    .AllowMultiSelect = False
    .InitialFileName = Application.DefaultFilePath
    If .Show <> -1 Then Exit Sub
    selectedFolder = .SelectedItems(1)
End With

file = Dir(selectedFolder & "\*.csv")
i = 0

Do While file <> ""
    i = i + 1
    Set wb = Workbooks.Open(selectedFolder & "\" & file)
    Set ws = wb.Worksheets(1)
    ws.Columns(6).Copy Destination:=Workbooks("book1").Worksheets("sheet2").Cells(1, i)
    wb.Close False
    file = Dir
Loop

End Sub

VBScript
​x
 
Sub ImportCSV()
​
Dim fd As FileDialog
Dim selectedFolder As String
Dim file As String
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer
​
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
​
With fd
    .Title = "フォルダを選択してください"
    .AllowMultiSelect = False
    .InitialFileName = Application.DefaultFilePath
    If .Show <> -1 Then Exit Sub
    selectedFolder = .SelectedItems(1)
End With
​
file = Dir(selectedFolder & "\*.csv")
i = 0
​
Do While file <> ""
    i = i + 1
    Set wb = Workbooks.Open(selectedFolder & "\" & file)
    Set ws = wb.Worksheets(1)
    ws.Columns(6).Copy Destination:=Workbooks("book1").Worksheets("sheet2").Cells(1, i)
    wb.Close False
    file = Dir
Loop
​
End Sub
​