|
>Asakiさん
ご指摘、ありがとうございます。
間違いだらけですがコードを提示させて頂きます。
参考書に書いてあったとwebから参照したコードを
単純にそのまま貼って少し整形をしたプログラムです。
'--------------------------------------------------
Sub ファイルを指定()
ファイルオープン = Application _
.GetOpenFilename(" (*.*), *.*")
FileName = "*.*"
If ファイルオープン <> False Then
i = 2
Do Until ファイルオープン = ""
Cells(i, 1).Value = FileName
FileName = Dir
i = i + 1
Loop
End If
MsgBox "完了しました"
End Sub
'--------------------------------------------------
詳しい人が見たら
「こんなの動くわけないじゃん」と思われるかもしれません。
その際は、「ここはこういう使い方をしたほうがいい」等の
アドバイスも頂けたらと思います。
|
|