Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3857 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【59846】資料の添付について エクセル 09/1/13(火) 16:06 質問[未読]
【59866】Re:資料の添付について 便乗 09/1/14(水) 17:05 質問[未読]
【59869】Re:資料の添付について トト 09/1/14(水) 18:00 発言[未読]
【59846】資料の添付について
質問  エクセル  - 09/1/13(火) 16:06 -
引用なし
パスワード
   資料の添付について質問お願いします。
コマンドボタンを押したときに、エクセルの保存のような画面がでて
資料の保存また、その逆を行うにはどうしたらよいでしょうか？
ちなみに添付資料ファイルはc:添付というフォルダーを作成してあり
そこに格納したいと考えています。
よろしくお願いいたします。
【59866】Re:資料の添付について
質問  便乗  - 09/1/14(水) 17:05 -
引用なし
パスワード
   自分もこの質問に関心があります。
どなたか、分かる方いればお教え願います。
【59869】Re:資料の添付について
発言  トト  - 09/1/14(水) 18:00 -
引用なし
パスワード
   ▼エクセル さん：
質問の意味が今一理解できてないのですが、

Sub sub_ダイアログの表示()
　　Dim myFileName As String
　　Dim myPathName As String
　　
　　myPathName = "C:添付\"
　　
　　'ファイル保存
　　myFileName = myPathName & "規定のファイル名"
　　myFileName = Application.GetSaveAsFilename(myFileName, _
　　　　　　　　　　　　　　"Excelファイル(*.xls),*.xls", , "資料保存")
　　Debug.Print myFileName
　　
　　'ファイルを開く
　　ChDir myPathName　　'パスの移動
　　myFileName = Application.GetOpenFilename _
　　　　　　　　　　　　("Excelファイル(*.xls),*.xls", , "資料を開く")
　　Debug.Print myFileName
End Sub

こういう事で良いのでしょうか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3857 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free