Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12920 / 76734

←次へ　｜　前へ→


	【69326】Re:ブックを開く

ＶＢＡ初心者 - 11/6/24(金) 15:06 -


	引用なし

	パスワード

▼UO3 さん：
>▼ＶＢＡ初心者さん：
>
>しつこいようですが、
>・本当にエラーは　シートのActivateのところで
>・エラー内容はApplication定義・・・・
>ですか？
>
>当方で動かしているんですが、ブックがちゃんと開かれた場合、次のActivateででるエラーは
>シートがなかった時の「エラー　9 インデックスが有効範囲にありません」だけだと思いますが？

40036　ｱﾌﾟﾘｹｰｼｮﾝ定義またはｵﾌﾞｼﾞｪｸﾄ定義のエラーです。が
Workbooks(名前 & ".xls") _
.Worksheets("総カウント数（入力用シート）").Activate
の部分で、黄色くなります。
もう一度、確認お願いしてもいいでしょうか？

Private Sub Worksheet_BeforeDoubleClick
(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 6 Then

Dim 名前 As String
名前 = ActiveCell.Offset(0, -1).Value
Workbooks.Open "C:\Users\USER\Desktop\" & 名前 & ".xls"
Workbooks(名前 & ".xls") _
.Worksheets("総カウント数（入力用シート）").Activate

End If

End Sub

11 hits

▼

【69315】ブックを開く ＶＢＡ初心者 11/6/24(金) 3:00