Excel VBA質問箱 IV

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

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


48430 / 76736 ←次へ | 前へ→

【33242】Re:すでに開いているワードファイルをアクティブにしたい
発言  ちくたく WEB  - 06/1/5(木) 18:19 -

引用なし
パスワード
   kyu さん。
はずしていたらごめんなさいで、
昔作った、エクセルを次々にワードに貼り付けるコードです。

ちょっと、質問が抽象的で答えにくいですが、
アクティブというか、ワードファイルの名前がわかっていれば、
Document("FILENAME")みたいな感じで操作はできますよ。

Private Sub CommandButton1_Click()

Dim cellStr01 As String, cellStr02 As String
Dim cellInt01 As Integer, cellInt02 As Integer
Dim roopCount As Integer, initialCount As Integer
Dim nextRange As Integer
Dim copyRange As String

  cellStr01 = TextBox1.Text
  cellStr02 = TextBox3.Text

  cellInt01 = TextBox2.Text
  cellInt02 = TextBox4.Text
  
  nextRange = cellInt02
  
  roopCount = TextBox5.Text
  
  Label2.Visible = True
  
'指定回数(種数)分ループ。行ってらっしゃいって感じ。
For initialCount = 1 To roopCount Step 1

  'コピーの範囲を先に格納。
  copyRange = cellStr01 & cellInt01 & ":" & cellStr02 & cellInt02

  'まず、エクセルからコピー
  Workbooks(excelFile).Activate
  Range(copyRange).Copy

  'ワードにペースト
  'まぁ、アクティブにしといて。
  Documents(wordFile).Activate
  
  'カーソルの場所をペースト。メタファイルを前面貼り付け。
  Word.Selection.PasteSpecial Link:=False, _
    DataType:=wdPasteEnhancedMetafile, _
    Placement:=wdFloatOverText, DisplayAsIcon:=False
  
  'ちょっと強引に次のページに移動。
  Word.Selection.GoToNext wdGoToPage

  '次の範囲へ移動。
  cellInt01 = cellInt01 + nextRange
  cellInt02 = cellInt02 + nextRange
  
Next initialCount

'貼り付けが終了したら。
Unload harihari
MsgBox "任務は成功しました。"

End Sub

0 hits

【33232】すでに開いているワードファイルをアクティブにしたい kyu 06/1/5(木) 16:02 質問
【33236】Re:すでに開いているワードファイルをアク... Kein 06/1/5(木) 16:26 発言
【33242】Re:すでに開いているワードファイルをアク... ちくたく 06/1/5(木) 18:19 発言
【33244】Re:すでに開いているワードファイルをアク... ichinose 06/1/5(木) 19:10 発言
【33252】Re:すでに開いているワードファイルをアク... kyu 06/1/5(木) 21:09 お礼

48430 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free