Excel VBA質問箱 IV

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

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


63932 / 76732 ←次へ | 前へ→

【17388】Re:ファイル名が一定ではないブックからの貼り付け
回答  Hirofumi  - 04/8/28(土) 8:31 -

引用なし
パスワード
   こんなので上手く行くかな?
尚、「2004.08.25A.EXL」て「2004.08.25A.xls」の間違い?

以下を標準モジュールに記述して下さい

Option Explicit

Public Sub Sample1()

'  ファイルを単独で選択する場合

  Dim strPath As String
  Dim vntFileName As Variant
  
  'パスを指定
'  strPath = "C:\DATA"
  strPath = ThisWorkbook.Path
  
  '表示させるFile名を指定
'  vntFileName = Format(Date, "yyyy.mm.") & "25A"
  vntFileName = Format(Date, "yyyy.mm.") & "??A"
  
  If Not GetReadFile(vntFileName, strPath, False) Then
    Exit Sub
  End If
  
  '*.xlsを開く
  Workbooks.Open vntFileName
  
End Sub

Public Sub Sample2()

'  ファイルを複数選択する場合

  Dim i As Long
  Dim strPath As String
  Dim vntFileName As Variant
  
  'パスを指定
'  strPath = "C:\DATA"
  strPath = ThisWorkbook.Path
  
  '表示させるFile名を指定
'  vntFileName = Format(Date, "yyyy.mm.") & "25A"
  vntFileName = Format(Date, "yyyy.mm.") & "??A"
  
  If Not GetReadFile(vntFileName, strPath, True) Then
    Exit Sub
  End If
  
  '*.xlsを開く
  With Workbooks
    For i = 1 To UBound(vntFileName)
      .Open vntFileName(i)
    Next i
  End With
  
End Sub

Public Function GetReadFile(vntFileNames As Variant, _
            Optional strFilePath As String, _
            Optional blnMultiSel As Boolean _
                    = False) As Boolean

  Dim strFilter As String
  
  'フィルタ文字列を作成
  strFilter = "Excel File (*.xls),*.xls," _
        & "全て (*.*),*.*"
  '読み込むファイルの有るフォルダを指定
  If strFilePath <> "" Then
    'ファイルを開くダイアログ表示ホルダに移動
    ChDrive Left(strFilePath, 1)
    ChDir strFilePath
  End If
  'もし、ディフォルトのファイル名が有る場合
  If vntFileNames <> "" Then
    SendKeys vntFileNames & "{TAB}", False
  End If
  '「ファイルを開く」ダイアログを表示
  vntFileNames _
      = Application.GetOpenFilename(strFilter, 1, , , blnMultiSel)
  If VarType(vntFileNames) = vbBoolean Then
    Exit Function
  End If
  
  GetReadFile = True
  
End Function

2 hits

【17384】ファイル名が一定ではないブックからの貼り付け 名雪 04/8/28(土) 0:06 質問
【17385】Re:ファイル名が一定ではないブックからの... かみちゃん 04/8/28(土) 0:15 発言
【17386】Re:ファイル名が一定ではないブックからの... 名雪 04/8/28(土) 0:39 発言
【17388】Re:ファイル名が一定ではないブックからの... Hirofumi 04/8/28(土) 8:31 回答
【17391】Re:ファイル名が一定ではないブックからの... かみちゃん 04/8/28(土) 9:34 発言
【17394】Re:ファイル名が一定ではないブックからの... 名雪 04/8/28(土) 11:25 回答
【17398】Re:ファイル名が一定ではないブックからの... かみちゃん 04/8/28(土) 12:44 発言

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