Excel VBA質問箱 IV

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

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


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

67393 / 76732

←次へ　｜　前へ→


	【13896】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝの内容変更について

WAKO - 04/5/15(土) 20:59 -


	引用なし

	パスワード

▼ちゃっぴさん：
ソースをきれいにしようと、下のｿｰｽを参考にしているのですが、
wbkBook(1) = ThisWorkbook でｵﾌﾞｼﾞｪｸﾄ変数または、with
ﾌﾞﾛｯｸ変数が設定されていませんで落ちてしまいます。

何か原因があるのでしょうか
よかったら教えて下さい

▼ちゃっぴさん：
>オブジェクト変数を駆使して修正すると以下のようになります。
>
>ご参考までに･･･
>
>Private Sub Workbook_Open()
>
>　　Dim w_シート名　　　　　As String
>　　Dim objButton　　　　　 As OLEObject
>　　Dim wbkBook(1 To 2)　　 As Workbook
>　　Dim wshTargetSheet　　　As Worksheet
>　　
>　　Application.ScreenUpdating = False　　　'画面更新の停止
>　　Application.DisplayAlerts = False　　　 '警告メッセージ非表示
>　　
>　　wbkBook(1) = ThisWorkbook
>　　'ブックオープン
>　　wbkBook(2) = Workbooks.Open("C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\単品.XLS")
>　　
>　　'シートコピー
>　　wbkBook(2).Worksheets("Sheet1").Copy Before:=wbkBook(1).Worksheets(1)
>　　
>　　wbkBook(2).Close　　　　　'ブッククローズ
>　　
>　　With wshTargetSheet
>　　　　.Rows("1:5").Insert Shift:=xlDown　　'行の挿入
>　　　　
>　　　　wbkBook(1).Sheets("Sheet3").Range("A1:CL5").Copy _
>　　　　　　Destination:=.Range("A2")　　　　'データのコピー
>　　　
>　　　　.Rows(1).RowHeight = 56.25　　　　　'行幅調整
>　　　　
>　　　　'コマンドボタンの挿入
>　　　　Set objButton = .OLEObjects.Add _
>　　　　　　(ClassType:="Forms.CommandButton.1", Link:=False, _
>　　　　　　　　DisplayAsIcon:=False, Left:=108, Top:=14.25, _
>　　　　　　　　Width:=81, Height:=33.75)
>　　End With
>　　
>　　objButton.Object.Caption = "ｴﾗｰﾁｪｯｸ"　　'表示名変更
>　　
>　　'マクロの記述
>　　With wbkBook(1).VBProject.VBComponents.Item("Sheet1").CodeModule
>　　
>　　　　'マクロの 1 行目です。同様に 5 行目まで書き込みます。
>　　　　.InsertLines 1, "Private Sub CommandButton1_Click()"
>　　　　.InsertLines 2, ""
>　　　　.InsertLines 3, " MsgBox ""セルの値が変更されました"""
>　　　　.InsertLines 4, ""
>　　　　.InsertLines 5, "End Sub"
>　　End With
>　　
>　　wbkBook(1).Save　　'保存
>　　
>　　オブジェクト変数初期化
>　　Set wbkBook(1) = Nothing
>　　Set wbkBook(2) = Nothing
>　　Set wshTargetSheet = Nothing
>　　Set objButton = Nothing
>　　
>　　Application.DisplayAlerts = True　　　 '確認メッセージ非表示
>　　Application.ScreenUpdating = True　　　'画面更新の再開
>　　
>End Sub
>
>ね、シンプルになったでしょ♪

0 hits

▼

【13867】ｺﾏﾝﾄﾞﾎﾞﾀﾝの内容変更について WAKO 04/5/15(土) 14:27