|
シート内に配置したテキストボックスに入力した名前のファイルを
読み込むマクロを作りたいと考えています。
myTxtFileの定義の行で直接ファイル名を""内に記入すれば、
読み込めるのですが、
一旦テキストボックスを読みにいくとファイルがありませんと
エラーが出ます。
パス名などを試行錯誤したのですが、解決できませんでした。
(対象ファイルはエクセルファイルと同フォルダにあります)
助けて頂けないでしょうか。
Private Sub CommandButton1_Click()
Dim myTxtFile As String
Dim myBuf(6) As String
Dim i As Integer, j As Integer
Application.ScreenUpdating = False
myTxtFile = ActiveWorkbook.Path & "\TextBox1.Text"
Worksheets("Sheet1").Activate
Open myTxtFile For Input As #1
Do Until EOF(1)
Input #1, myBuf(1), myBuf(2), myBuf(3), myBuf(4), myBuf(5)
i = i + 1
For j = 1 To 5
Cells(i, j) = myBuf(j)
Next j
Loop
Close #1
End Sub
Private Sub TextBox1_Change()
End Sub
|
|