Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12967 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7623】ファイルを探す テーブル 03/9/10(水) 14:36 質問
【7625】Re:ファイルを探す INA 03/9/10(水) 16:33 回答
【7628】Re:ファイルを探す テーブル 03/9/10(水) 17:18 発言
【7634】Re:ファイルを探す INA 03/9/10(水) 20:46 回答
【7656】Re:ファイルを探す テーブル 03/9/11(木) 15:04 質問
【7657】Re:ファイルを探す INA 03/9/11(木) 15:10 回答
【7660】Re:ファイルを探す テーブル 03/9/11(木) 15:24 質問
【7669】Re:ファイルを探す INA 03/9/11(木) 16:31 回答
【7673】Re:ファイルを探す テーブル 03/9/11(木) 16:55 お礼
【7677】Re:ファイルを探す INA 03/9/11(木) 17:18 回答
【7703】Re:ファイルを探す テーブル 03/9/12(金) 12:47 質問
【7704】Re:ファイルを探す INA 03/9/12(金) 13:42 回答
【7705】Re:ファイルを探す テーブル 03/9/12(金) 14:10 質問
【7711】Re:ファイルを探す INA 03/9/16(火) 12:29 回答
【7715】Re:ファイルを探す テーブル 03/9/16(火) 12:56 お礼
【7623】ファイルを探す
質問  テーブル E-MAIL  - 03/9/10(水) 14:36 -
引用なし
パスワード
   いつもお世話になっております。初心者の「会社で困っています＆テーブル」です。

今回はファイルを探す事についての質問です。
1)まず、マクロの入った空白のEXCELファイルがあります。
2)そのEXCELファイルに対して、読み込みたいcsvファイルを持ってきたいのですが。
　（質問1)　読み込みたいcsvファイルを表示させた際には、空白のEXCELにあったマク
　　　　　 ロを残す事は可能なのでしょうか？
　　
　(質問2)　ファイルではなくて、フォルダを検索したい場合は、fName=""ではなく、ど
　　　　　うすればよろしいのでしょうか？

Sub csvファイルを開く()
Workbooks.Open "C:\フォルダ\ファイル.csv"
End Sub

ではよろしくお願い致します。
【7625】Re:ファイルを探す
回答  INA  - 03/9/10(水) 16:33 -
引用なし
パスワード
   >　（質問1)　読み込みたいcsvファイルを表示させた際には、空白のEXCELにあったマク
>　　　　　 ロを残す事は可能なのでしょうか？
Workbooks.Open "C:\フォルダ\ファイル.csv"　であれば、　
CSVファイルを新規のブックとして開くので大丈夫です。

　　
>　(質問2)　ファイルではなくて、フォルダを検索したい場合は、fName=""ではなく、
>どうすればよろしいのでしょうか？
フォルダの何を検索したいのでしょうか？
フォルダ名をセルに抽出したい？
【7628】Re:ファイルを探す
発言  テーブル E-MAIL  - 03/9/10(水) 17:18 -
引用なし
パスワード
   ▼INA さん：INAさん、こんにちわ。いつもありがとうございます。


>CSVファイルを新規のブックとして開くので大丈夫です。
回答頂きありがとうございます。

>フォルダの何を検索したいのでしょうか？
>フォルダ名をセルに抽出したい？
すいません・・・・わけのわからないことを買いてしまいました。
えっと。ファイルを選択して、直接選ぶのではなく、

例えば・・・　
一年戦争フォルダ→連邦フォルダ、ジオンフォルダ→
　　　　　　　　　　↓　　　　　　　　　↓
　　　　ガンダム、ガンキャノン　　　ザク、グフ、ズゴック

とあるとして、私はジオンフォルダを選択できる状態の場所まで行けるマクロにしたいのですが・・・・　例としてガンダムだしてすいません＾＾；　最近かな〜り再ブーム到来しているので・・・
【7634】Re:ファイルを探す
回答  INA  - 03/9/10(水) 20:46 -
引用なし
パスワード
   >例えば・・・　
>一年戦争フォルダ→連邦フォルダ、ジオンフォルダ→
>　　　　　　　　　　↓　　　　　　　　　↓
>　　　　ガンダム、ガンキャノン　　　ザク、グフ、ズゴック
>
>とあるとして、私はジオンフォルダを選択できる状態の場所まで行けるマクロにしたいのですが

「選択できる状態の場所まで行けるマクロ」
これの意味が分かりません。
何を表示させたいか？何を取得したいか？何をどう処理したいか？

　再度ご説明をお願い致します。(_ _)
【7656】Re:ファイルを探す
質問  テーブル E-MAIL  - 03/9/11(木) 15:04 -
引用なし
パスワード
   ▼INA さん：
　回答頂いてありがとうございます。　説明が下手で申し訳ありません。
実現したいのは、ツールバーからユーザーが「保存」っと言うメニューを選択します。その際に、保存したい場所を指定したかったので、保存したいフォルダの手前までリンクをはれるような事をしたかったのです。　
　もしできるなら、ご教授お願い致します。　EXCELの機能では、リンクを張ることはできても、そこで保存させる事ができなかったので・・・・・　何かしらプログラムを追加する必要があるのかなっとおもい、くだらない例を書いてみましたTT
【7657】Re:ファイルを探す
回答  INA  - 03/9/11(木) 15:10 -
引用なし
パスワード
   保存のダイアログが開ければよいのでしょうか？

　Application.Dialogs(xlDialogSaveAs).Show
【7660】Re:ファイルを探す
質問  テーブル E-MAIL  - 03/9/11(木) 15:24 -
引用なし
パスワード
   ▼INA さん：
ご回答ありがとうございます。
保存のダイアログは開けたのですが、そこから、マイドキュメントの中のMyMusicの中に、xlsファイルで保存したい場合は、どうすればよろしいのでしょうか・・・・・すいませんTT

>保存のダイアログが開ければよいのでしょうか？
>
>　Application.Dialogs(xlDialogSaveAs).Show
【7669】Re:ファイルを探す
回答  INA  - 03/9/11(木) 16:31 -
引用なし
パスワード
   >保存のダイアログは開けたのですが、そこから、マイドキュメントの中の
>MyMusicの中に、xlsファイルで保存したい場合は、どうすればよろしいのでしょうか・・

そのまま手動で保存する為のダイアログなのですが・・・

VBAの保存は SavaAs を使って以下のようにします。
ThisWorkBook.SaveAs Filename:="C:\My Documents\My Pictures\sample.xls"

それともドライブやフォルダ選択のダイアログを求めているのでしょうか？
そうであれば　SHBrowseForFolder 関数でできます。
ご参考までに・・
http://homepage1.nifty.com/OkaLab/Program/VbTips01.html
【7673】Re:ファイルを探す
お礼  テーブル E-MAIL  - 03/9/11(木) 16:55 -
引用なし
パスワード
   ▼INA さん：
ありがとうございます。
フォルダ選択で、保存する際にR1234-1.csvファイルをR1234-1.xlsに保存
できるやり方を考えていました。

>それともドライブやフォルダ選択のダイアログを求めているのでしょうか？
>そうであれば　SHBrowseForFolder 関数でできます。
>ご参考までに・・
>http://homepage1.nifty.com/OkaLab/Program/VbTips01.html

↑のHP見てみて勉強します。
ありがとうございました。
【7677】Re:ファイルを探す
回答  INA  - 03/9/11(木) 17:18 -
引用なし
パスワード
   >フォルダ選択で、保存する際にR1234-1.csvファイルをR1234-1.xlsに保存
>できるやり方を考えていました。
SaveAs で FileFormatを 設定すればよいと思います。

Dim ファイル名 As String
ファイル名 = "R1234-1"

ActiveWorkbook.SaveAs _
Filename:="C:\My Documents\" & ファイル名 & ".csv", _
FileFormat:= xlCSV
【7703】Re:ファイルを探す
質問  テーブル E-MAIL  - 03/9/12(金) 12:47 -
引用なし
パスワード
   ▼INA さん：
>>フォルダ選択で、保存する際にR1234-1.csvファイルをR1234-1.xlsに保存
>>できるやり方を考えていました。
>SaveAs で FileFormatを 設定すればよいと思います。
>
>Dim ファイル名 As String
> ファイル名 = "R1234-1"
>
> ActiveWorkbook.SaveAs _
> Filename:="C:\My Documents\" & ファイル名 & ".csv", _
> FileFormat:= xlCSV

CSVのファイル名を”1234-1”のように、指定しないで
存在するcsvファイル名をそのまま、xlsのファイルに変更するように
設定するにはどうしたらいいのでしょうか？
試してみたのですが、エラーばかりで・・・・・
どうかよろしくお願いします。　
質問がまた、おかしいと思いますが・・・
【7704】Re:ファイルを探す
回答  INA  - 03/9/12(金) 13:42 -
引用なし
パスワード
   >存在するcsvファイル名をそのまま、xlsのファイルに変更するように
>設定するにはどうしたらいいのでしょうか？
>試してみたのですが、エラーばかりで・・・・・
>どうかよろしくお願いします。　

1.Excel で CSV ファイルを開く。
2.ファイルをxls形式で保存する。

であれば、「マクロの自動記録」で十分可能だと思いますよ。
【7705】Re:ファイルを探す
質問  テーブル E-MAIL  - 03/9/12(金) 14:10 -
引用なし
パスワード
   ▼INA さん：

>1.Excel で CSV ファイルを開く。
>2.ファイルをxls形式で保存する。
>
>であれば、「マクロの自動記録」で十分可能だと思いますよ。

回答ありがとうございます。
1.Excelで、CSVファイルを開く。
2.ファイルを保存する際に、C:MyDocumentの場所に、そのままの名前でxlsで保存をするです。

可能であるならば、「2.」の場合はどうすればよろしいでしょうか？　
どうかよろしくお願いします。
【7711】Re:ファイルを探す
回答  INA  - 03/9/16(火) 12:29 -
引用なし
パスワード
   こんな感じで良いでしょうか？

Private Sub CommandButton1_Click()
Dim OpenFileName As Variant
　　　　
　　'対象ファイルをダイアログで選択。
　　OpenFileName = Application.GetOpenFilename("ＣＳＶ ファイル (*.CSV), *.CSV")
　　If OpenFileName <> False Then
　　　　MsgBox OpenFileName & "を開きます。"
　　End If

　　'ＣＳＶファイルを開く
　　Workbooks.Open OpenFileName
　
　　'保存
　　ActiveWorkbook.SaveAs FileFormat:=xlNormal

End Sub
【7715】Re:ファイルを探す
お礼  テーブル E-MAIL  - 03/9/16(火) 12:56 -
引用なし
パスワード
   ▼INA さん：
連休明けにも関わらずお疲れ様です＆ありがとうございます。
INAさんのおかげで、やりたい事が実現できました＾＾
解決できた事がすごく嬉しいです。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12967 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free