Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15308 / 76734 ←次へ | 前へ→

【66905】テキストボックスに入力したファイルの読み込み
質問  りょうま  - 10/10/16(土) 13:36 -

引用なし
パスワード
   シート内に配置したテキストボックスに入力した名前のファイルを
読み込むマクロを作りたいと考えています。
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
1 hits

【66905】テキストボックスに入力したファイルの読み込み りょうま 10/10/16(土) 13:36 質問
【66906】Re:テキストボックスに入力したファイルの... かみちゃん 10/10/16(土) 13:48 発言
【66917】Re:テキストボックスに入力したファイルの... りょうま 10/10/16(土) 17:30 お礼

15308 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free