Excel VBA質問箱 IV

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

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


33800 / 76738 ←次へ | 前へ→

【48154】Re:開くファイルの制御
発言  ウッシ  - 07/4/5(木) 13:53 -

引用なし
パスワード
   こんにちは

こんな感じでうまく行くでしょうか?

Sub CopyPasteWord()
  Dim objWord   As Object
  Dim objDoc    As Object
  Dim WkSht    As Worksheet
  Dim BOOK     As String
  Dim wordfilename As Variant
  
  With Application
    .AskToUpdateLinks = False
    .DisplayAlerts = False

'    BOOK = ThisWorkbook.Sheets(1).Cells(12, 2)
'    OPENBOOK = ThisWorkbook.Path & "\" & BOOK
'    Workbooks.Open OPENBOOK
    
    wordfilename = Application.GetOpenFilename _
        (Title:="ファイルを開く", _
         FileFilter:="Word 文書(*.doc),*doc")
        '事情によりWordだけGetOpenFilenameメソッドを利用しています
    If VarType(wordfilename) = vbBoolean Then Exit Sub
    
    On Error Resume Next
    Set objWord = GetObject(, "Word.Application")
    If objWord Is Nothing Then
      Set objWord = CreateObject("Word.Application")
      Set objDoc = objWord.documents.Open(wordfilename)
    Else
      Set objDoc = GetObject(wordfilename)
    End If
    On Error GoTo 0
    With objWord
      .Visible = True
      .WindowState = 1 'wdWindowStateMaximize
    
    End With

    'ここでExcelからWordにCopyPaste
    'コードは省略します。
  
    objDoc.Close
    objWord.Quit
    
    .DisplayAlerts = True
    .AskToUpdateLinks = True
  End With
  Set objWord = Nothing
  Set objDoc = Nothing
End Sub

0 hits

【48152】開くファイルの制御 tomo 07/4/5(木) 13:18 質問
【48154】Re:開くファイルの制御 ウッシ 07/4/5(木) 13:53 発言
【48161】Re:開くファイルの制御 tomo 07/4/5(木) 16:14 お礼
【48162】Re:開くファイルの制御 ウッシ 07/4/5(木) 16:29 発言
【48163】Re:開くファイルの制御 tomo 07/4/5(木) 17:31 質問
【48164】Re:開くファイルの制御 ウッシ 07/4/5(木) 17:42 発言
【48167】Re:開くファイルの制御 tomo 07/4/5(木) 18:34 お礼
【48175】Re:開くファイルの制御 tomo 07/4/6(金) 14:04 質問
【48176】Re:開くファイルの制御 ウッシ 07/4/6(金) 15:24 発言
【48177】Re:開くファイルの制御 ウッシ 07/4/6(金) 15:42 発言
【48178】Re:開くファイルの制御 tomo 07/4/6(金) 19:18 発言
【48179】Re:開くファイルの制御 ウッシ 07/4/6(金) 20:39 発言
【48221】Re:開くファイルの制御 tomo 07/4/9(月) 9:05 発言
【48222】Re:開くファイルの制御 ウッシ 07/4/9(月) 9:43 発言
【48223】Re:開くファイルの制御 tomo 07/4/9(月) 9:48 お礼
【48235】Re:開くファイルの制御 りん 07/4/9(月) 17:52 発言
【48251】Re:開くファイルの制御 tomo 07/4/10(火) 8:18 お礼

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