Access VBA質問箱 IV

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

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


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

2588 / 9994

←次へ　｜　前へ→


	【10678】Re:エクセルに値渡ししたい

neptune - 08/11/6(木) 17:22 -


	引用なし

	パスワード

▼ON さん：
こんにちは

Excelの方はコピペ、Accessの方もパスを変更しただけ。
コードは以下。
Public Sub run_excel2()
　　　　'レイトバインド時（参照設定無し）
　　　　Dim xls As Object
　　　　Dim wkb As Object
　　　　Dim wks As Object
　　　　Dim rng As Object
　　　　Dim strSQLstring As String
　　
　　　　Dim pstr As String
　　
　　　　pstr = "ac_str"
　　
　　　　Set xls = CreateObject("Excel.Application")
　　
　　　　xls.Visible = True　　 '＃＃＃
　　　　　
　　　　Set wkb _
　　　　　 = xls.Workbooks.Open( _
　　　　　　　　　 Filename:="E:\hoge" & "\test_01.xls")
　　　　　
　　　　xls.Run "一括処理1"　 '←ＯＫ　引数なし　動きます
　　　　xls.Run "一括処理2"　　 '←ＮＧ　実行時エラー '449':引数は省略できません｡
　　　　　　　　　　　　　　　　'OKでした。
　　　　xls.Run "一括処理2", pstr　　 '←ＯＫ　引数有りなら動きます
　　
　　　　wkb.Close SaveChanges:=True
　　　　xls.Quit
　　　　Set wkb = Nothing
　　　　Set xls = Nothing
End Sub

で、確認しましたが、問題なく動作しました。
VB6でも上記で検証しましたが、やはり、問題は発生しませんでした。
なので、何故、エラーが出るかは？です。

念の為、Bookの破損を切り分ける為、
新しいBookを作成して、検証をやり直してみてはどうですか？
この辺りしか思い付きません。

なお、当方、Office2K、WindowsXP SP3の環境です。

475 hits

▼

【10633】エクセルに値渡ししたい ON 08/10/29(水) 13:55