|
みなさん こんにちは
現在 UserForm1 から、そのブックがある同じフォルダー内の
CSVファイルを FullNameを使って開こうとしていますが、
通常CSVファイルを開くのと比べ、非常に時間がかかっています。
早く開く方法はあるでしょうか?
CSVファイルのデータは、500行/25列 のものです。
以下は簡略化したものですが、これでも開くが遅いです。
Dim path As String
Dim fname As String
__________________________
Private Sub CommandButton1_Click()
Workbooks.Open Filename:=path & "AAA.csv"
End Sub
___________________________
Private Sub UserForm_Initialize()
path = ThisWorkbook.FullName
fname = ThisWorkbook.Name
path = Left(path, Len(path) - Len(fname)) & "\"
End Sub
|
|