Excel VBA質問箱 IV

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

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


61900 / 76732 ←次へ | 前へ→

【19443】Re:ファイルの操作について
回答  Kein  - 04/11/3(水) 14:04 -

引用なし
パスワード
   Sub 集計ファイルに出力()
  Dim WB As Workbook
  Dim Ck As Boolean
  Dim 行 As Long, 列 As Long
  Dim モデル名 As String
  Dim mybtn As Integer
 
  行 = Range("K65536").End(xlUp).Row
  列 = ActiveCell.Column
  モデル名 = ActiveCell.Value
  mybtn = MsgBox("モデル " & モデル名 & " を出力します")
  If mybtn = 2 Then Exit Sub
  For Each WB In Workbooks
   If LCase(WB.Name) = モデル名 & ".xls" Then
     Ck = True: Exit For
   End If
  Next
  Application.ScreenUpdating = False
  If Ck = False Then
   Workbooks.Open ThisWorkbook.Path & "\" & モデル名 & ".xls"
   ThisWorkbook.Activate
  End If
 
概ね、このような書き出しでよいと思います。他にはエラートラップするやり方も
ありますが。

1 hits

【19438】ファイルの操作について 初心者 04/11/3(水) 0:36 質問
【19443】Re:ファイルの操作について Kein 04/11/3(水) 14:04 回答
【19445】Re:ファイルの操作について 初心者 04/11/3(水) 15:30 お礼

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