UWSCでVBAを実行する方法を教えてください下記ｺｰﾄﾞでUWSCからVBAを実行しようとしても､ｴﾗｰが出ます｡最後の行をExcel.Application.Run "C:\Users\abc\Desktop\AA.x… - 人力検索はてな

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

i-mobile

UWSCでVBAを実行する方法を教えてください
下記ｺｰﾄﾞでUWSCからVBAを実行しようとしても､ｴﾗｰが出ます｡
最後の行をExcel.Application.Run "C:\Users\abc\Desktop\AA.xlsx!Module1.BB"としてもﾀﾞﾒでした｡
よろしくお願い致します｡

path="C:\Users\abc\Desktop\AA.xlsx"
EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.visible = True
Excel.WorkBooks.Open(FileName:=path)
sleep(2)
Excel.Application.Run "Module1.BB"

●質問者: consultation10
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

▽1 ● a-kuma3
●300ﾎﾟｲﾝﾄ

ﾍﾞｽﾄｱﾝｻｰ

こんな感じになるんじゃないでしょうか(試してないけど)｡

path="C:\Users\abc\Desktop\AA.xlsb"
EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.Visible = True
EXCEL.Workbooks.Open(FileName:=path)
sleep(2)
EXCEL.Run "BB"

ﾜｰｸｼｰﾄは｢ﾊﾞｲﾅﾘﾌﾞｯｸ｣で保存｡なので､拡張子も .xlsx → xlsb(ﾏｸﾛ有効ﾌﾞｯｸでも良いし､97-2003 ﾌﾞｯｸでも可)
一応､変数(ｵﾌﾞｼﾞｪｸﾄ)の大文字／小文字を統一
ﾌﾟﾛﾊﾟﾃｨも大文字／小文字をきっちりと合わせる
- EXCEL.visible → EXCEL.Visible
- EXCEL.WorkBooks → EXCEL.Workbooks ：
VBA でいう Application は､CREATEOLEOBJ したｵﾌﾞｼﾞｪｸﾄ(なので､.Application は要らない)
Run ﾒｿｯﾄﾞの引数はｻﾌﾞﾙｰﾁﾝ名だけ

AA.xls に引数なしのｻﾌﾞﾙｰﾁﾝ BB があることが大前提です｡

Sub BB()
 ...
End Sub

あと､ﾃﾞｼﾞﾀﾙ署名をつけるか､ｾｷｭﾘﾃｨﾚﾍﾞﾙを下げる必要があると思います｡
ｾｷｭﾘﾃｨﾚﾍﾞﾙを下げるのは｢開発｣ﾘﾎﾞﾝ→｢ﾏｸﾛのｾｷｭﾘﾃｨ｣で､｢すべてのﾏｸﾛを有効にする｣を選択して保存｡

consultation10さんのｺﾒﾝﾄ
ご回答ありがとうございます｡上記ｺｰﾄﾞを試したところ､『COM_Error：名前が不明です｡ 6行目：EXCEL.Run "BB"』と表示されて､ﾏｸﾛの実行ができませんでした｡ AA.xlsbに標準ﾓｼﾞｭｰﾙ→Module1にBBを作りました｡私の設定が不適切かもしれませんが､もし解決方法がありましたら宜しくお願い致します

a-kuma3さんのｺﾒﾝﾄ
>> 『COM_Error：名前が不明です｡ 6行目：EXCEL.Run "BB"』 << ｶｯｺが要るかなあ... >|vb| EXCEL.Run("BB") ||< ｢6行目｣って出るってことは､UWSC 側はお試しｺｰﾄﾞですよね｡呼ばれる側の Excel ﾌﾞｯｸは､実際に使おうと思っているものですか？それとも､お試し用のｻﾝﾌﾟﾙ的なやつですか？

consultation10さんのｺﾒﾝﾄ
ご回答ありがとうございます｡ UWSCのｺｰﾄﾞとExcelﾌﾞｯｸはお試し用です｡ EXCEL.Run("BB")でﾏｸﾛを実行することができました！ありがとございました｡ちなみに､(PERSONAL.XLSB)に入っているｻﾌﾞﾙｰﾁﾝBBを実行する方法がありますでしょうか？ <pre> <code> path="C:\Users\abc\Desktop\AA.xlsx" EXCEL = CREATEOLEOBJ("Excel.Application") EXCEL.Visible = True EXCEL.Workbooks.Open(FileName:=path) sleep(2) EXCEL.Run ("BB") </code> </pre> やりたいことはﾃﾞｰﾀｰﾍﾞｰｽからﾃﾞｽｸﾄｯﾌﾟに出力されたAA.xlsxを編集するため､UWSCから(PERSONAL.XLSB)に入っているｻﾌﾞﾙｰﾁﾝBBを実行することです｡質問時の説明が足りなくて大変申し訳ございませんが､もし可能であればよろしくお願い致します｡

a-kuma3さんのｺﾒﾝﾄ
ここから先は､UWSC は関係ない話です｡その PERSONAL.xlsb のｻﾌﾞﾙｰﾁﾝ BB は､ﾃﾞｽｸﾄｯﾌﾟにある AA.xlsx をどうやって扱いますか？大きく分けて､ふたつのﾊﾟﾀｰﾝがあると思います｡ひとつは､PERSONAL.xlsb のﾏｸﾛが AA.xlsx を分かっている､もしくは見つけられるｹｰｽ｡ PERSONAL.xlsb で Workbooks.Open を使って､AA.xlsx を開いて､手に入った Workbook ｵﾌﾞｼﾞｪｸﾄを操作します｡ >|vb| Sub XX() ' PERSONAL.xlsb の VBA Set target_book = Workbooks.Open("C:\Users\abc\Desktop\AA.xlsx") Set sheet = target_book.Sheets(1) ' AA.xlsx の一番目のｼｰﾄ Set cell = sheet.cells(1,1) ' AA.xlsx の一番目のｼｰﾄの A1 ｾﾙ ... ||< UWSC からは､PERSONAL.xlsb のｻﾌﾞﾙｰﾁﾝを呼び出します｡もうひとつは､AA.xls<span style="color:red;">b</span> から PERSONAL.xlsb のｻﾌﾞﾙｰﾁﾝを呼び出すｹｰｽ｡ UWSC のｺｰﾄﾞと同じで､Application.Run ﾒｿｯﾄﾞを使います｡ >|vb| Sub BB() ' AA.xlsb の VBA Set personal_book = Workbooks.Open("D:\foo\PERSONAL.xlsb") Application.Run "PERSONAL.xlsb!XX" ... ||< ﾃﾞｰﾀが吐き出された方のﾌﾞｯｸでﾏｸﾛが動くようにしてあげる必要があります｡ﾃﾞｰﾀが吐き出された AA.xlsx の方では､ﾏｸﾛは持たずにﾃﾞｰﾀだけにしておきたい､ということであれば､前者の方を使うことになります｡

関連質問

●質問をもっと探す●

0.人力検索はてなﾄｯﾌﾟ
8.このﾍﾟｰｼﾞを友達に紹介
9.このﾍﾟｰｼﾞの先頭へ
□対応機種一覧
□お問い合わせ
□ﾍﾙﾌﾟ/お知らせ
□ﾛｸﾞｲﾝ
□無料ﾕｰｻﾞｰ登録
□はてなﾄｯﾌﾟ