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

Question

kazumichi

60

58もっと見る

60pt

コンピュータ

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

どのように変更したらよろしいでしょうか。

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

回答の条件

URL必須
1人2回まで

登録：2009/11/19 15:20:28
終了：2009/11/19 15:34:05

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

HALSPECIAL 2009/11/19 15:35:43

次の４つはすべて同じです。
ActiveCell
Application.ActiveCell
ActiveWindow.ActiveCell
Application.ActiveWindow.ActiveCell
つまり、ActiveCellの左側はすべて省略されています。
SALINGER 2009/11/19 18:35:53

質問文のコードが正しく動かない理由としていくつか考えられるのは、
Cells(行,列)の書式なんでColumnとRowが逆ということ。
また、Worksheet(1)は一番左のシートを意味するのでActiveSheetとは限らないということも考えられます。
シートに関して付け加えると、Worksheets("Sheet1")とSheet1は同じとは限らないので正しい理解が必要です。

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

HALSPECIAL · Accepted Answer · 2009-11-19T15:24:53+09:00

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

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

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

ベストアンサー

HALSPECIAL407862009/11/19 15:24:53

コメント（2件)

この質問への反応（ブックマークコメント）