お世話になっております。
vbsの以下の記述でexcelを開いています。
開くところまでは行くのですが、その後のsheet1のデータのクリアとUserForm1の表示がどうしてもできません。
申し訳ありませんが、どなたかおわかりの方、教えていただけないでしょうか。
宜しくお願いいたします。
Dim oApp
Dim objWshShell
Dim scriptPath
'Excelオブジェト作成
Set oApp = CreateObject("Excel.Application")
'WScript.Shellオブジェクト作成
Set objWshShell = CreateObject("WScript.Shell")
oApp.Visible = True '不可視にする
oApp.UserControl = True
'Excelファイルを開く
scriptPath = WScript.ScriptFullName
scriptPath = left(scriptPath,len(scriptPath)-len(WScript.ScriptName))
oApp.Workbooks.Open scriptPath & "共同資料.xlsm"
No.1ベストアンサー
- 回答日時:
共同資料.xlsm に UserForm1 という名前のユーザーフォームが存在する。
共同資料.xlsm に標準モジュールを作成し、以下のコードを書いておく。
Public Sub ShowUserForm()
UserForm1.Show
End Sub
以下、VBScript のコード
Dim scriptPath
Dim bookPath
Dim fso ' パス文字列を操作するために FileSystemObject オブジェクトを使用
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
scriptPath = WScript.ScriptFullName
bookPath = fso.BuildPath(fso.GetParentFolderName(scriptPath), "共同資料.xlsm")
Dim oApp ' Excel Application オブジェクト
Dim targetBook ' 開いたブックの Workbook オブジェクト
Dim targetSheet ' sheet1 または 左から 1番目のシート
Set oApp = WScript.CreateObject("Excel.Application")
oApp.Visible = True
oApp.UserControl = True
Set targetBook = oApp.Workbooks.Open(bookPath)
Set targetSheet = targetBook.Worksheets("sheet1")
'Set targetSheet = targetBook.Worksheets(1) ' 左から 1番目ならこのコードでも可能
' どこの値/数式をクリアするのかは適宜変更
targetSheet.Range("A5").ClearContents
' 共同資料.xlsm の標準モジュールに書いた ShowUserForm プロシージャを実行
oApp.Run "共同資料.xlsm!ShowUserForm"
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
テキストボックス中の文字列の...
-
実行時エラー 3265「要求された...
-
Excelでフィルタをかけると警告...
-
エクセルのVBAの標準モジュール...
-
VBAで既に開いている別アプリケ...
-
オブジェクトが見つかりません
-
findメソッドの変数について
-
ある文字列が全て数字であるか...
-
VBScriptでExcelのグラフを貼り...
-
エクセルマクロエラー「'Cells'...
-
VBScriptでの起動済みのIEの操作
-
VBScriptでファイルの日時順(降...
-
横軸ラベルの追加に関するエラ...
-
テキストボックスが読み取り専...
-
VBAで別のシートに図形描画
-
AccessVBAで「dim dbs as datab...
-
[VBA]CDOメッセージ送信エラー
-
[C#]static void 関数内でthis
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
Excelでフィルタをかけると警告...
-
オブジェクトが見つかりません
-
EXCEL VBA オートシェイプナン...
-
VBAからPDFファイルにパスワー...
-
VBAで Set wb = Sheets(1).Cop...
-
ある文字列が全て数字であるか...
-
PowerPointVBAでスライドマスタ...
-
[VBA]CDOメッセージ送信エラー
-
AccessVBAで「dim dbs as datab...
-
VBAで作成するメール(開封確認...
-
VBからPDFファイル自動生成...
-
上下の位置揃えについて
-
ExcelVBAでのNZ関数について
-
テキストボックス中の文字列の...
-
エクセルマクロエラー「'Cells'...
おすすめ情報