もくじ
The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- Excel関数 日付から「曜日」を返す【WEEKDAY関数】 - 2018年8月16日
- Word 名前を付けて保存する - 2018年8月14日
- VBA カッコの内の文字列を抜き出す - 2018年8月12日
- ExcelとWord連携パート2【セルの値をWordに転記してみよう】 - 2018年8月10日
- VBA ユーザー名を取得する方法 - 2018年8月9日
どうも、takaです(^^♪
さて、少し前にExcelVBAからWordを起動してみるという記事を公開しましたね！ExcelからWordを起動するというのも変な気分ですよね(笑)
さて、起動や終了するのはいいですが、文字を入力できなければいけません。
ですが、正直に言いますが「わざわざExcelから文字を入力するだけでは意味がありません」なので今回はセルの値をWordに転記する方法をご紹介していきます(^^)
ExcelVBAとWordを連携させる方法は下のリンクで確認してください！
リンク：【ExcelとWord連携パート1【ExcelVBAからWordの起動と終了】】
今回はお試し用に簡単にこんなファイルを用意してみました。
ExcelVBAからWordにセルの値を転記するサンプルコード
では、サンプルコードですが、今回はセルA1～A10のセルの値を新しく作成したWordドキュメントに転記するコードです。
今回は前回からいくつかステップが追加されております。
- オブジェクト変数を宣言
- インスタンスを作成
- ブックとシートを指定
- Wordを表示
- Wordにドキュメントを追加
- セルの内容を変数に代入
- セルの内容をWordに転記
- Wordを終了
オレンジの文字が前回からの変更点です。正直③と⑥はVBAの基礎の部分になるので実質解説するのは7番のみです。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | '①オブジェクト変数を宣言 Dim WordApp As Word.Application Dim Exwb As Workbook Dim Exws As Worksheet Dim i As Long Dim Extext As String ' ②Wordのインスタンスを作成。 Set WordApp = New Word.Application Set Exwb = ThisWorkbook '③コードが記述されているブック Set Exws = Exwb.ActiveSheet '③コードが記述されているブックのアクティブシート With WordApp .Visible = True '④Wordを表示 .Documents.Add '⑤Wordにドキュメントを追加 For i = 1 To 10 Extext = Exws.Cells(i, 1).text & vbLf '⑥セルA１~~～A１0のセルのテキストと改行を変数へ .Selection.TypeText Extext '⑦Word上のカーソル位置の部分へテキストを転記 Next i .Quit '⑧Wordを終了 End With End Sub |
実行してWordにこのような画面が表示されていれば成功です。
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Twitterフォロー
Follow @takabou63
使用OS：
コメントを残す