[[20051024153910]]　『会社のマクロを自宅で実行するがエラー』（SS１）　ページの最後に飛ぶ

『会社のマクロを自宅で実行するがエラー』（SS１）
ユーザホームからワード文書の「HAKO」へ名前、日付、数値を転送するマクロです。
自宅で実行すると、エラー’４２９’Ａｃｔｉｖｅｘコンポーネントはオブジェクトを作成できませんが　表示されます。オブジェクトの階層構造も理解できないしょしんしゃです。下記がコードの一部です。
何かヨイヒントおしえてください。（ｘｐ、エクセル２００２）

Sub 転送()

  Dim nissi As String
  Dim wd As Word.Application
  Dim WDoc As Word.Document

  If res = vbYes Then

     nissi = "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\de-ta日誌.doc"
  End If
    Set wd = CreateObject("Word.Application.9")←ここにデバッグが出ます。
    wd.Visible = True
    Set WDoc = wd.Documents. _
           Open(nissi)
    With WDoc.Tables(1)

 参照設定は問題ないですか？
  (INA)

 Ｗｏｒｄのヴァージョン違いと言うことはありませんか？
http://www.shoeisha.com/book/hp/pc/office/Word/files/text2.html
http://homepage1.nifty.com/markey/memo/200210.html#100701
http://www.boreas.dti.ne.jp/~tosin/errvb/error429.htm
http://support.microsoft.com/default.aspx?scid=kb;ja;244264
（不知詠人）

INAさん、不知詠人ありがとうございました。Ｗｏｒｄのヴァージョン違いでしたが、次に　Set WDoc = wd.Documents. _

           Open(nissi)　　　　　　　←このところで実行時エラー’５２７３’がでました。ＶＢＡを作成したかたはいないので聞けませんがマクロを勉強してやり直したいと思います。（ｓｓ１）

 XPで"C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\de-ta日誌.doc"と言うパス（フォルダ）が
 ないのではないでしょうか。 "C:\Documents and Settings\[USER NAME]\デスクトップ"
 （[USER NAME]にはユーザー名が入る）のようなパス名になります。
 ＯＳに依存しないフォルダを利用してはいかがでしょうか。
 XPのWINDOWSフォルダにﾃﾞｽｸﾄｯﾌﾟというフォルダを作成するとか（危険？）
 C:\　直下に共通した名前のフォルダを作成するとか・・・。
（不知詠人）

不知詠人さん
転送処理はエクセルでデスクトップにおいてあります
ワードの文書（ｄｅ－ｔａ日誌）もデスクトップに置いてあります
今日はこれで退社します。車中は1時間半、家でスキルアップをしたいと思います
ありがとうございます。（ｓｓ１）

 会社と自宅のパソコンのＯＳのヴァージョンが異なっているのではないですか？
 「デスクトップ」と言ってもＯＳによってハードディスク上の保存場所が違い
 ますから、確認してください。同じデスクトップにde-ta日誌.docを置いても、
 ９８、Ｍｅは
 C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\de-ta日誌.doc
 ２０００、ＸＰは、
 C:\Documents and Settings\[USER NAME]\デスクトップ\de-ta日誌.doc

 C:\　直下に共通した名前のフォルダを作成し、ショートカットをデスク
 トップに置く、というのが現実的な方法ではないでしょうか。
（不知詠人）

不知詠人sanありがとうございます。理解も出来て解決いたしました。
（ｓｓ１）

コメント返信：

[ 一覧(最新更新順) ]

[[20051024153910]] 『会社のマクロを自宅で実行するがエラー』（SS１） ページの最後に飛ぶ

[[20051024153910]]　『会社のマクロを自宅で実行するがエラー』（SS１）　ページの最後に飛ぶ