Excel VBA質問箱 IV

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

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


54146 / 76732 ←次へ | 前へ→

【27386】Re:繰り返し処理で名をつけてファイル保存
回答  Hirofumi  - 05/8/7(日) 22:13 -

引用なし
パスワード
   ゴメン、プロシージャが一つ抜けってた
以下のコードを前のコードと同一の標準モジュールに追加して下さい


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

  Dim strFilter As String
  Dim strTitle As String
  
  'タイトルを作成
  strTitle = "雛型の元となるBookを選択して下さい"
  'フィルタ文字列を作成
  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, _
                  strTitle, , blnMultiSel)
  If VarType(vntFileNames) = vbBoolean Then
    Exit Function
  End If
  
  GetReadFile = True
  
End Function

0 hits

【27381】繰り返し処理で名をつけてファイル保存 apple 05/8/7(日) 18:41 質問
【27382】Re:繰り返し処理で名をつけてファイル保存 かみちゃん 05/8/7(日) 19:18 回答
【27385】Re:繰り返し処理で名をつけてファイル保存 apple 05/8/7(日) 22:07 お礼
【27383】Re:繰り返し処理で名をつけてファイル保存 Hirofumi 05/8/7(日) 21:57 回答
【27384】Re:繰り返し処理で名をつけてファイル保存 apple 05/8/7(日) 22:05 お礼
【27386】Re:繰り返し処理で名をつけてファイル保存 Hirofumi 05/8/7(日) 22:13 回答
【27387】Re:繰り返し処理で名をつけてファイル保存 apple 05/8/7(日) 22:19 お礼

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