戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
起動済みのwordへの書き込みに変更するには?

    [191435] 起動済みのwordへの書き込みに変更するには?-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ VBA初心者 -(2020/02/22(15:50))
    □U R L/
      下記コードでExcelからwordへの書き込みをしているのですが、
      (実はネットからの類似のコードで作成しました)
      下記コードでは
      新規にワードを起動して貼り付けするようになっています。
      
      このため、ワード起動に時間がかかるので、
      あらかじめ、自分で新規のワードを起動しておき、
      Excelでデータが作成できた段階で
      下記コードを実行して、起動済みのワードに貼り付けたいのです。
      
      どなたか下記コードをどのように変更すれば良いか
      ご教示いただけますと幸いです。
      
      Dim myword As Object
      Dim myworddoc As Object
      Dim myexcel As Object
      Dim r1 As Long
      
      Set myexcel = CreateObject("excel.application")
      Set myword = CreateObject("word.application")
      
      Workbooks("入力.xlsm").Sheets("データ").Activate
      
      r1 = Cells(Rows.Count, "C").End(xlUp).Row
      Sheets("データ").Range(Cells(1, "A"), Cells(r1, "G")).Copy
      Set myworddoc = myword.documents.Add
      myword.Visible = True
      myworddoc.ActiveWindow.Selection.pasteexceltable True, False, False
      
      myexcel.Application.CutCopyMode = False
      Set myexcel = Nothing
      Set myword = Nothing
      Set myworddoc = Nothing
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191436] Re[1]: 起動済みのwordへの書き込みに変更するには?-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2020/02/22(16:01))
    □U R L/

      CreateObject でなく greateObject を使用すると良いです。
      使い方は検索してください。




    [191437] Re[2]: 起動済みのwordへの書き込みに変更するには?-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2020/02/22(16:04))
    □U R L/
      Set myexcel = CreateObject("excel.application")
      
      これ不要です。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191438] Re[3]: 起動済みのwordへの書き込みに変更するには?-

    記事引用/メール受信=OFF■

    □投稿者/ w1909 -(2020/02/22(16:06))
    □U R L/

      >greateObject

      もしや

      GetObjct




    [191439] Re[4]: 起動済みのwordへの書き込みに変更するには?-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2020/02/22(16:21))
    □U R L/

      失礼しました。
      GetObjct です。





    [191440] Re[5]: 起動済みのwordへの書き込みに変更するには?-

    記事引用/メール受信=OFF■

    □投稿者/ VBA初心者 -(2020/02/22(19:18))
    □U R L/

      マナさん、ありがとうございます。
      getobjctにすると
      コンパイラーエラーとなります。
      getobjectにすると
      オートメーションエラーとなります。
      どこがおかしいのでしょうか?




    [191441] Re[6]: 起動済みのwordへの書き込みに変更するには?-

    記事引用/メール受信=OFF■

    □投稿者/ Jaka -(2020/02/22(19:43))
    □U R L/

      これ少しは参考にならないですかね?

      ht tp://www.vbalab.sakura.ne.jp/vbaqa/c-board.cgi?cmd=ntr;tree=268;id=FAQ

      注)そのままコピペの場合、半角スペース2個か、3個がタブに変換されてるので修正してください。




    [191442] Re[7]: 起動済みのwordへの書き込みに変更するには?-

    記事引用/メール受信=OFF■

    □投稿者/ VBA初心者 -(2020/02/22(20:21))
    □U R L/
      Jaka さん、ありがとうございます。
      
      Set myword = GetObject(, "word.application") ’ ,を追加
      に変更したところ、上手くいきましたが、
      起動済みの白地のwordには書き込まれず、
      新たなwordの方に書き込まれました。
      出来れば、起動済み(未保存)のwordに書き込みたいのです。
      
      よろしくお願いいたします。
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191443] Re[8]: 起動済みのwordへの書き込みに変更するには?-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2020/02/22(20:44))
    □U R L/

      >起動済み(未保存)のword

      いつも、まっさらな状態の文書に貼り付けるのでしょうか。




    [191444] Re[9]: 起動済みのwordへの書き込みに変更するには?-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2020/02/22(20:59))
    □U R L/

      それと、エクセルとリンクした状態で貼り付けていますが
      それでよいのですか。




    [191445] Re[9]: 起動済みのwordへの書き込みに変更するには?-

    記事引用/メール受信=OFF■

    □投稿者/ VBA�ス�ス�スS�ス�ス -(2020/02/22(21:07))
    □U R L/

      マナ -さん、お手数をおかけします。

      wordに張り付けるのは 仮の状態です。
      この張り付けたwordを左画面にして
      右画面に別途の専用アプリ(Excel)を立ち上げ
      左画面を見ながら右のアプリに入力しています。

      元のExcelと専用アプリ(Excel)は同時に立ち上げられないように
      専用アプリ(Excel)に排他制御がかかっているので、上記のようにやむを得ず、
      wordに仮に張り付けているのです。
      よって、起動済み(未保存)のまっさらのwordに張り付けられればよいのです。




    [191446] Re[10]: 起動済みのwordへの書き込みに変更するには?-

    記事引用/メール受信=OFF■

    □投稿者/ VBA初心者 -(2020/02/22(21:10))
    □U R L/

      マナ さんへ

      >それと、エクセルとリンクした状態で貼り付けていますが
      > それでよいのですか

      リンクは不要です。

      お手数をおかけします。




    [191447] Re[11]: 起動済みのwordへの書き込みに変更するには?-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2020/02/22(21:35))
    □U R L/
      では、こんなので
      
      Set ws = Workbooks("入力.xlsm").Sheets("データ")
      r1 = ws.Cells(Rows.Count, "C").End(xlUp).Row
      ws.Cells(1).Resize(r1, 7).Copy
      GetObject(, "word.application").Selection.PasteSpecial
      
      Application.CutCopyMode = False


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191448] Re[12]: 起動済みのwordへの書き込みに変更するには?-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ VBA初心者 -(2020/02/22(21:54))
    □U R L/

      マナ -さん、ありがとうございます。
      上手くいきました。

      ただ、
      GetObject(, "word.application").Selection.PasteSpecial
      の場合、
      wordの貼り付けでセル毎に改行され、表が大きくなったため、

      GetObject(, "word.application").Selection.pasteexceltable True, False, False
      に変更すると
      wordの貼り付けでセル毎に改行なく、エクセルイメージで貼り付けされました。

      大変お世話になりました。
      ありがとうございました。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G