| |
MURA さん、おはようございます。
>このデータ読み込み後、編集も可能なので、
>途中でデータを保存する必要があります。
ボタンでないといけない理由はありますか？
コードでブックにマクロを登録できますが、リスクを踏まえてセキュリティ設定でVBAからのアクセスを信頼する必要があります。しないとエラーになります。
読み込むファイル（C:\Module1.bas）の中身＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Attribute VB_Name = "Module1"
Sub RunTest()
If MsgBox("上書きします" , vbYesNo) = vbYes Then Thisworkbook.Save
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
このマクロを実行すると、新しいブックにボタンとマクロを登録します。
Sub test()
Dim wb As Workbook, sh As Shape
Set wb = Application.Workbooks.Add
wb.VBProject.VBComponents.Import ("C:\Module1.bas") 'ファイルを取込み
With wb.Worksheets(1)
With .Range("B1:C2")
Set sh = .Parent.Shapes.AddFormControl(xlButtonControl, .Left, .Top, .Width, .Height)
sh.TextFrame.Characters.Text = "上書き保存"
sh.OnAction = wb.Name & "!RunTest"
End With
End With
Set sh = Nothing: Set wb = Nothing
End Sub
こんな感じです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 07/3/31(土) 9:45 -
