Excel VBA質問箱 IV

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

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


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

53573 / 76738

←次へ　｜　前へ→


	【27977】Re:実行時エラー'1004'

りん

- 05/8/25(木) 19:33 -


	引用なし

	パスワード

VBA初心者さん、こんばんわ。

だるまさんので解決してたらいいですが。

>Private Sub Workbook_Open()
>　　sv_path = Application.DefaultFilePath
>　　sv_drv = Left(sv_path, 1)
>　　sv_prn = Application.ActivePrinter
>　　With Application
>　　　　.ScreenUpdating = False
>　　　　.Caption = "請求書作成"
>　　End With
　 'これを追加して実行してみてください。
　 MsgBox Sheet1.Parent.Name, vbInformation
　 MsgBox Worksheets("設定").Parent.Name, vbInformation
>　　Sheet1.set1 Worksheets("設定").Range("A1").Value　＝＞ここで1004です。
>　　CB_clear
>　　book_open "汎用名称.xls"
>　　add_button
>End Sub

1 hits

▼

【27900】実行時エラー'1004' ＶＢＡ初心者 05/8/23(火) 19:08