人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ActiveCellに入力されている文字列のファイルを開きたいのですが、以下のコードが正しく動いてくれません。
どのように変更したらよろしいでしょうか。

Sub ファイルオープン()
Dim Filename As String
Workbooks.Open Filename:=ActiveWorkbook.Path& "\" & Worksheets(1).Cells(ActiveCell.Column, ActiveCell.Row).Value & ".xls"
End Sub

●質問者: kazumichi
●カテゴリ:コンピュータ
✍キーワード:as open String sub xls
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● HALSPECIAL
●60ポイント ベストアンサー

こちらでいかがでしょうか?

Sub ファイルオープン()
 Dim Filename As String
 Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & ActiveCell.Value & ".xls"
End Sub

◎質問者からの返答

動作しました。

ありがとうございました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ