ファイルオープンの速度を速くするには？

質問

よろしくお願いします。

下記コードでabc.csvを選択すると、Excelツールバーの”開く”で行う場合よりかなり時間がかかります。速度を早くする方法を教えて頂けないでしょうか。

Option Explicit
Option Compare Text

Sub Start_Click()

Dim Fname As String
Dim MBErr As Integer

MsgBox "abc.csv を選択して下さい"

Start:

Fname = Application.GetOpenFilename("CSVファイル,*.csv")

If Not Right(Fname, 7) = "abc.csv" Then

　　MBErr = MsgBox("ファイル名が違うか、ファイルが選択されていません" _
　　　　　　　　　& Chr(13) & Chr(13) & "abc.csv を選択して下さい", 21)

　　If MBErr = 4 Then
　　　　GoTo Start
　　Else
　　　　Exit Sub
　　End If

End If

Workbooks.Open Fname

End Sub

回答No.1

Wendy02 · ベストアンサー

こんばんは。

「abc.csv を選択して下さい。」となっているなら、そのまま、ファイルの存在を、Dir で調べて、インポートすればよいのではないでしょうか？人間がいちいち選択する必要はないような気がしています。abc.csv ファイルがなければない、あれば、そのまま実行というわけにはいかないのでしょうか？

それに、

Workbooks.Open Fname

そのまま使っていますね。Excelに判断させるよりも、自分で、csv を「,」で切り分けて、セルに貼り付けたほうが速いのではないでしょうか？サンプルコードは、ここのカテゴリでも出てくるはずです。

　FNo = FreeFile()
　Open Fname For Input As #FNo

　で、テキスト行を呼び出し、Split(TextLine,",") で配列にして、そのまま、セルに貼り付ければ速いはずです。

お礼

ありがとうございました。
助かりました。