Excel VBA質問箱 IV

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

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


53347 / 76732 ←次へ | 前へ→

【28201】Re:ファイルの呼び出し
質問  はじめ  - 05/8/30(火) 19:31 -

引用なし
パスワード
   ▼IROC さん:
こんにちは。いつもお世話になっています。
頂いたお返事をアレンジしたのですが、
(mypathとmyfileの間にフォルダーを指定しなければ
ならなかったので)エラーで止まりました。
下記のコードです。

Private Sub CommandButton1_Click()
Dim myPath As String
Dim myfolder As String
Dim myFile As String
 
  myPath = "D:\"
  myfolder = Left(TextBox1.Text, 2)
  myFile = TextBox1.Text & "-" & TextBox2.Text & "*"
  
  Filename = myPath & folder & "\" & myFile
 
  if dir filename <>""then
    Workbooks.Open Filename
  Else
    MsgBox "見つかりません"
  End If

End Sub

どこが間違えているのでしょうか。
よろしくお願い致します。


>
>Dim myPath As String
>Dim myFile As String
>  
>  myPath = "C:\"
>  myFile = TextBox1.Text & "-" & TextBox2.Text & "*"
>  
>  If Dir(myPath & myFile) <> "" Then
>    Workbooks.Open myPath & Dir(myPath & myFile)
>  Else
>    MsgBox "見つかりません"
>  End If

0 hits

【27056】ファイルの呼び出し はじめ 05/7/27(水) 12:48 質問
【27057】Re:ファイルの呼び出し IROC 05/7/27(水) 12:53 回答
【27061】Re:ファイルの呼び出し はじめ 05/7/27(水) 15:15 発言
【27062】Re:ファイルの呼び出し IROC 05/7/27(水) 15:30 回答
【27065】Re:ファイルの呼び出し はじめ 05/7/27(水) 16:38 お礼
【28201】Re:ファイルの呼び出し はじめ 05/8/30(火) 19:31 質問
【28203】Re:ファイルの呼び出し ponpon 05/8/30(火) 20:16 発言
【28204】Re:ファイルの呼び出し りん 05/8/30(火) 21:07 発言
【28214】Re:ファイルの呼び出し はじめ 05/8/31(水) 11:09 お礼
【28303】Re:ファイルの呼び出し はじめ 05/9/2(金) 12:31 質問
【28358】Re:ファイルの呼び出し ponpon 05/9/3(土) 11:19 発言
【28388】Re:ファイルの呼び出し はじめ 05/9/5(月) 10:24 お礼
【28394】Re:ファイルの呼び出し りん 05/9/5(月) 13:55 発言

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