Excel VBA質問箱 IV

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

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


61898 / 76732 ←次へ | 前へ→

【19445】Re:ファイルの操作について
お礼  初心者  - 04/11/3(水) 15:30 -

引用なし
パスワード
   Keinさん

ちゃんと動作しました。他にもいろいろ応用出来そうです。
ありがとうございました!!

▼Kein さん:
>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 お礼

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