- ベストアンサー
エクセルVBAでファイルの選択（ZIP解凍後）
kkkkkmの回答
> VBAでは開けないファイルを手作業で開いて、パスを表示したら、以下のようにやはり違う場所にありました。 ZIP解凍後ではなかったという事ですね、それなら話は分かります。 File Explorerとファイルを開くダイアログとが同じ機能だと勘違いしてたのですね。 File Explorerは、ファイルをクリックする(表示だけでは解凍しない)とTempフォルダに解凍したファイルを作成して開いてくれますが、開くダイアログは、クリックしても現在のファイルのフルパスを返すだけですから。 コピーして解凍で対応するのは最適な対応かもしれませんね。
関連するQ&A
- VBAの組み込みダイアログの引数Argについて
エクセルVBAでの質問です。 エクセルとして名前をつけて保存なら Sub aaa() Application.Dialogs(xlDialogSaveAs).Show ARG1:="ABC.xls", ARG2:=1 End Sub テキストファイルとして名前をつけて保存なら Sub bbb() Application.Dialogs(xlDialogSaveAs).Show ARG1:="ABC.txt", ARG2:=3 End Sub CSVファイルとして名前をつけて保存なら Sub ccc() Application.Dialogs(xlDialogSaveAs).Show ARG1:="ABC.csv", ARG2:=6 End Sub でうまくいきます。 今度は、ファイルを開こうとxlDialogOpenに変えました。 Sub aaa2() Application.Dialogs(xlDialogOpen).Show ARG1:="ABC.xls" ', ARG2:=1 End Sub Sub bbb2() Application.Dialogs(xlDialogOpen).Show ARG1:="ABC.txt", ARG2:=3 End Sub 以上二つはファイル名入りのダイアログは出ました。でもダイアログの画面にはフォルダーしか表示されません。 Sub ccc2() Application.Dialogs(xlDialogOpen).Show ARG1:="ABC.csv", ARG2:=6 End Sub これは実行時エラーになりました。 どうも、Application.Dialogs(xlDialogSaveAs)とApplication.Dialogs(xlDialogOpen)では引数ARG2が違うようです。 Application.Dialogs(xlDialogOpen)でのARG2は何の指定なのでしょうか？またその数値の意味はなんでしょうか？
- ベストアンサー
- その他MS Office製品
- エクセルでCSVファイルをユーザーに選択させたい
エクセルVBAで、特定のフォルダ（C:\Data）に入っているCSVファイルをユーザーに選択させたいのです。 ただ、その際、選択肢に表示させるファイルに、例えば”企画“という文字列があることを条件にしたいのです。 組み込みダイアログであれば OpenFileName = Application.Dialogs(xlDialogOpen).Show("C:\Data\*企画*.csv") で大丈夫だと思います。 しかし、組み込みダイアログでは実際にそのファイルがエクセルで開かれてしまい、先頭の数字の0が消える等の不都合が起きてしまいます。 そのため、ファイルは指定させますが実際には開かずファイル名だけを取得する Application.GetOpenFilenameを使おうと思いました。 これでファイル名さえ所得できればあとは外部データの取り込みでCSVデータを取得できます。 ところが、 OpenFileName = Application.GetOpenFilename("C:\Data\*企画*.csv") はエラーになってしまいます。ネットで検索すると、Application.GetOpenFilenameではファイル名にワイルドカードは使えないようです。 このような場合、どのような方法をとればよいでしょうか？
- ベストアンサー
- Excel（エクセル）
- VBAでのファイルの開き方について
いつもお世話になっております。（エクセル2010を使用） エクセルVBAを学習中の者です。 ダイアログボックスを表示してファイルを開く・・・というコードを記述しているのですが、分からない点があるためご指導をお願いします。 Sub Sample1() Dim openFileName As String openFileName = Application.GetOpenFilename filefilter:="Microsoft Excelブック,*.xls?" Workbooks.Open Filename:=openFileName End Sub を実行するとコンパイルエラーの構文エラーが表示されます。 Sub Sample2() Dim openFileName As String openFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") Workbooks.Open Filename:=openFileName End Sub を実行すると正常に動作します。 私の現在の知識ではSample1も正常に動作するはずなんですが・・・ （※コードはVBEをコピペしています） 両者の違いはなんでしょうか？（※スペルの間違いは無いとは思いますが・・・） どうぞよろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- vbaでテキストファイル（*.txt）を取込みたい
vba初心者です。 Application.Dialogs(xlDialogOpen).Showで選択したテキストファイル（***.txt)をテキストファイルウィザードで、タブ、カンマ、スペース区切りで、エクセルファイルに取り込むマクロを組みたいのですが？ 何度やってもうまくいきません。 ご教示願えないでしょうか！ eｘcel2002を使用してます。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- [VBA]標準機能のみでパス付zipファイルの解凍
いつもこちらの識者の皆様にはお世話になっております。 VBAのことで質問させてください。 環境はwindows7 Pro Excel2010(14.0.7128.5000) 32bit です。 掲題のとおり、パスワード付のzipファイルを解凍しいたいのですが、調べてもやり方が分からず困っています。 ■やりたいこと 外部アプリケーションを使わずにWindows7の標準機能のみで"C:\aaa\bbb.zip"をパスワード"111"で解凍する 会社で使っているのですが、アプリケーションのインストールが禁止されており、 毎日複数のパスワード付zipファイルを手動で解凍して処理をしています。 効率を考えVBAで処理したいのですが、どなたか上記内容の場合どのようなコードが適しているか 教えていただけませんでしょうか。 よろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- EXCEL2000のVBAで、ディレクトリを指定するダイアログボックスを出したい
VBA歴日も間もない者です。仕事上でVBAをいろいろいじくっています。 Excel2000VBAで、ディレクトリの指定をできるダイアログ画面はないのでしょうか？ ユーザーにディレクトリを入力してもらいたいのですが、方法としては、1)直接手で打ってもらうか、2)ダイアログで指定できるようにするかにしたいのですが、あいにく Application.Dialogs(xlDialogOpen).Show Application.GetOpenFilename で「ファイルを開く」でディレクトリを割り出す方法しか分かりませんでした。 できれば、ディレクトリ指定のダイアログ画面をだしたいのですけど、他に方法があれば教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのVBAを使用し、別のBookの情報をコピーしたい
VBA初心者ですので、御教授をお願い致します。 下記の作業をVBAで実施可能でしょうか？ まず、BookA.xlsから"Application.Dialogs(xlDialogOpen).Show"を利用し、任意のbookXを開きます。 その開いた、bookXのSheet1と、Sheet2をコピーし、BookA.xlsのSheet1と、Sheet2に貼り付けたいのですが、可能でしょうか？ ちなみに、bookXのファイル名は固定ではありません。 毎回、作業するたびに変わるbookをVBAでコントロールする方法をご存知の方がいらっしゃいましたら、ご指導をよろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- VBAで複数のエクセルファイルを自動圧縮
VBAで複数のエクセルファイルを自動圧縮 お世話になります。 以下サイトなどを参考にVBAでエクセルファイルの圧縮をさせようとしています。 ダイアログで圧縮したいファイルを指定して圧縮するところまではできました。 http://oshiete.hmv.co.jp/qa5155002.html ■やりたいこと 特定のフォルダにある複数のファイルを個別に圧縮して、それぞれzipファイルとしたい。 圧縮するファイルを指定するダイアログは出さずに、自動化したい。 ■VBAの記述 Dim Filename As String Dim strArchiveName As String Dim strCommand As String Dim RC As Long Dim hWnd As Long Dim strOutPut As String * 512 Dim lngSize As Long Dim strPassWord As String strPassWord = "pass" 'ハンドル取得 hWnd = FindWindow("XLMANI", Application.Caption) '★ファイル名取得★ Filename = Application.GetOpenFilename("*.xls(*.xls),*.xls") If Filename = "False" Then Exit Sub Filename = Mid$(Filename, InStrRev(Filename, "\") + 1) strArchiveName = Mid$(Filename, InStrRev(Filename, "\") + 1, InStrRev(Filename, ".") - InStrRev(Filename, "\") - 1) & & ".zip" strCommand = "-uP " & strPassWord & " " & strArchiveName & " " & Filename lngSize = Len(strOutPut) RC = Zip(hWnd, strCommand, strOutPut, lngSize) ■質問 ファイル名を毎回変えて繰り返し処理すればいいと考えてますが、 圧縮するファイルを指定するダイアログを消すことができません。。。 ファイル名を以下のように直接指定しましたが、以下エラーが出てしまいます。 VBAで取得したファイル名で圧縮するような記述の仕方があればご教示いただけると助かります！ '★ファイル名取得★ Filename = Application.GetOpenFilename("*.xls(*.xls),*.xls") If Filename = "False" Then Exit Sub ↓以下に変更したがエラー Filename = "C:\" & "test.xls" ←とりあえずファイル名を固定で指定したつもり。。 ●イミディエイトに表示されるエラー zip warning: name not matched: test.xls zip warning: test.zip not found or empty
- ベストアンサー
- Visual Basic
- VBAで質問です
下記のVBAを作成しました。 ダイアログからｔｘｔファイルをエクセルで開きます。 ここで作成されたシートを別のブックの「ログ」というシートに貼り付けたいのです。 宜しくお願いします。 ・ｔｘｔファイルは日付が入る為、毎回違う名前になります。 ・ Private Sub CommandButton4_Click() Dim fname As String fname = Application.GetOpenFilename( _ filefilter:="Excelファイル,*.xls,すべてのファイル,*.*") If fname = "false" Then Exit Sub Workbooks.OpenText Filename:=fname
- 締切済み
- Visual Basic
- VBAでファイルOPEN ダイアログを使用したいです
現在、指定したファイルを開くVBAを書いているのですが、 ↓こんなの ----------------------------------------------------------- Dim vntFileName As Variant 'ファイルを開くダイアログを開きます vntFileName = _ Application.GetOpenFilename( _ FileFilter:="エクセルファイル(*.xls),*.xls" & _ ",CSVファイル(*.csv),*.csv" _ , FilterIndex:=1 _ , Title:="開けゴマ" _ , MultiSelect:=False _ ) 'ファイルが選択されているときは '選択したファイルをWorkbooks.Openメソッドで開きます If vntFileName <> False Then Workbooks.Open Filename:=vntFileName End If ---------------------------------------------------------------- あらかじめ開くディレクトリを、ネットワーク上のフォルダに指定したいのですが、どこにパスを書いたらいいのか、わかりません。 教えていただけますでしょうか。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 勉強になりました。