Excel VBA質問箱 IV

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

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


5557 / 13645 ツリー ←次へ | 前へ→

【50155】コマンドボタンクリックでファイルを開く かずお 07/7/12(木) 14:42 質問[未読]
【50156】Re:コマンドボタンクリックでファイルを開く ぱっせんじゃー 07/7/12(木) 14:52 発言[未読]
【50158】Re:コマンドボタンクリックでファイルを開く かずお 07/7/12(木) 14:59 質問[未読]
【50157】Re:コマンドボタンクリックでファイルを開く Jaka 07/7/12(木) 14:57 発言[未読]
【50159】Re:コマンドボタンクリックでファイルを開く かずお 07/7/12(木) 16:18 質問[未読]
【50160】Re:コマンドボタンクリックでファイルを開く Jaka 07/7/12(木) 17:29 発言[未読]
【50161】Re:コマンドボタンクリックでファイルを開く かずお 07/7/12(木) 20:11 お礼[未読]

【50155】コマンドボタンクリックでファイルを開く
質問  かずお E-MAIL  - 07/7/12(木) 14:42 -

引用なし
パスワード
   初心者ですどなたかお願いします。ファイル名をマクロに書いてコマンドボタンで開くのですが、ファイルが多くなりコマンドボタンだらけで・・・ コンボボックスでファイル名(拡張子無し)を取得し同じフォルダー内のファイルをコマンドボタンで開けたらどれだけ便利かと見よう見まねで書いてみましたが赤くハイライトして間違っているのはわかるのですが・・・ どの様にしたら良いのかご教授をお願いします。

Private Sub CommandButton3_Click()
Dim myName As String
myName = ComboBox1.Text
Workbooks.Openfilename:="C:Documents and Settings\Owner\デスクトップ    \マイフォルダー\" & Replace("myName" & ".xls")
End Sub

【50156】Re:コマンドボタンクリックでファイルを...
発言  ぱっせんじゃー  - 07/7/12(木) 14:52 -

引用なし
パスワード
   >Replace("myName" & ".xls")

この部分では何をしているのでしょう?

【50157】Re:コマンドボタンクリックでファイルを...
発言  Jaka  - 07/7/12(木) 14:57 -

引用なし
パスワード
   Private Sub CommandButton1_Click()
Dim FLNm As String
If ComboBox1.ListIndex >= 0 Then
  FLNm = "C:Documents and Settings\Owner\デスクトップ\マイフォルダー\" & _
     ComboBox1.List(Me.ComboBox1.ListIndex) & ".xls"
  If Dir(FLNm) <> "" Then
   Workbooks.Open (FLNm)
  End If
End If
End Sub

Private Sub UserForm_Initialize()
Me.ComboBox1.List = Array("Book1", "Book2", "Book3", "Book4")
End Sub

【50158】Re:コマンドボタンクリックでファイルを...
質問  かずお E-MAIL  - 07/7/12(木) 14:59 -

引用なし
パスワード
   ぱっせんじゃー さん返信ありがとうございます。
>Replace("myName" & ".xls")
この部分はコンボボックスで取得した値には拡張子がありませんので付ければ良いのかと思いまして・・・ 訳もわからずに済みません宜しくお願いします。

【50159】Re:コマンドボタンクリックでファイルを...
質問  かずお E-MAIL  - 07/7/12(木) 16:18 -

引用なし
パスワード
   Jakaさん返信有難うございます。新たにホルダーとファイルを作成しコピー&ペーストして試してみました。
>Me.ComboBox1.List = Array("Book1", "Book2", "Book3", "Book4")でコンボボックスにBook1からBook4が表示されBook1を選択し同一ホルダー内のBook1を呼び出しましたが出来ませんでした。Excel2007のせいでしょうか?それからMe.ComboBox1.List にはアクティブシートのレンジk7〜k11の値を取りたいのですが宜しくお願い致します。

【50160】Re:コマンドボタンクリックでファイルを...
発言  Jaka  - 07/7/12(木) 17:29 -

引用なし
パスワード
   >Me.ComboBox1.List にはアクティブシートのレンジk7〜k11の値を取りたい
ComboBox1.List = activesheet.range("K7:K11").value

>Book1を選択し同一ホルダー内のBook1を呼び出しましたが出来ませんでした
これは、拡張子の状態の問題ではないでしょうか?
こういうふうにするのが普通です。

  If Dir(FLNm) <> "" Then
   Workbooks.Open (FLNm)
  Else
   msgbox "ありません。"
  End If

【50161】Re:コマンドボタンクリックでファイルを...
お礼  かずお E-MAIL  - 07/7/12(木) 20:11 -

引用なし
パスワード
   Jakaさん度重なるご指導をいただきありがとうございます。
ComboBox1.List(Me・・ 以下の書き方は初めてでした。
Book1の保存形式を変えてからエクセルを立ち上げて読み込みコンボボックスでBook1を確認し呼び出しましたが出来ませんでした。きっと何かがあるのですね。
ご丁寧にありがとうございました。一旦閉じさせて頂きますがまた宜しくお願い
いたします。

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