| |
みなさん こんにちは
現在 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
|
|
１２３
- 03/5/29(木) 14:04 -
