• 締切済み

EXCEl/VBAで拡張子なしのファイルを開けない

EXCEL2000 VBAのOpenTextメソッドで、拡張子の付いていないファイル(ABCDE)を開く時、同じフォルダにEXCELのブック(ABCDE.XLS)があるとブックの方を開いてしまいます。 拡張子なしのファイルを開く方法をご存知の方どうか教えてください。よろしくお願いします。

みんなの回答

回答No.2

全く自信が無いのですが・・・ ファイル名の指定を、"ASCDE."とドット付きにしてもダメでしょうか?

mkuni73
質問者

補足

ドットのみを付けてあげても結果は同じでした。

  • TTak
  • ベストアンサー率52% (206/389)
回答No.1

mkuni73さんこんにちは 私の使っている方法ですが、ファイルを開く直前に、Nameステートメントで、一時的にtxtなどの拡張子を付けてファイルを開き Name "ABCDE" As "ABCDE.txt" 閉じた直後にその逆、 Name "ABCDE.txt" As "ABCDE" を実行するのはいかがでしょう?。

mkuni73
質問者

お礼

TTakさんありがとうございます。 やはり拡張子なしのファイルをそのままで、というのは無理なんでしょうか。拡張子をつけてあげる方法で移行と思います。どうもありがとうございました。

関連するQ&A

  • Excel2007での VBAの動作不良?

    Excel2007がインストールされた環境で拡張子を変えて動作させようとしたら 変更直後でしか動作しませんでした。 やり方としては (1)VBAマクロを作成したボタンに登録(Excel2007にて)。 ※ボタンは[開発]タブの[挿入]からActiveXコントロールのボタンを配置しました。 (2)Excelファイルを2003バージョンで保存(拡張子はxls:Excel97-2003タイプ)。 ※この拡張子だと何度でも正常に機能しました。 (3)保存形式(拡張子)を変更して(拡張子はxlsm:マクロ有効ブック)マクロを実行したら正常に動作した。 ただし、一度ブックを閉じて開くとボタンがグレイアウトはしてないのですが使用不可でした。 デザインモードになってましたが解除不能です(クリックしても変化なし)。 2007のマクロの安全性に関する設定は (1)左上の丸いリボン(?)をクリック (2)[Excelのオプション]をクリック (3)左のメニュー欄において[セキュリティセンター]をクリック、[セキュリティセンターの設定]をクリック (4)左のメニュー欄[信頼できる場所]に[MyDocument]に設定し、[サブフォルダも信頼する]にチェック これで2003バージョン(拡張子:.xls)では問題なく動作しました。 (VBAマクロを作成したExcelファイルは全て[MyDocument]以下に保存してました) VBAコードを記述したマクロではファイルを開いたり、データを比較したりと色々な処理をしました。 ファイルを開いたのはExcel、Access、CSVデータなどです。 拡張子を「xlsm」にするとマクロ有効ブックになると思いますが他にも変化があるのでしょうか? ご存知の方、いらっしゃったらご教授願います。

  • VBAでファイル名を変更したい

    EXCEL2003のVBAでブックを連続して保存をするものを作成したのですが、スキルが足りないため、ファイル名が数字になってしまい、リネームをしたいのですが、出だしからつまずいております。 リネームをしたいブック(ファイル)は一つのフォルダに入っており、 excelのシートには旧ファイル名と新ファイル名の一覧をつくり VBAを実行すると一覧に載っているブック名が変更される というものを作りたいのですが、可能でしょうか。 一覧は 旧ファイル名  新ファイル名 1.xls      1北海道.xls 2.xls      2青森.xls という感じです。 フリーのリネームソフトではなく何とか自力でやりたいと思っております。 お力をお貸しください。 よろしくお願いいたします。

  • 【Excel VBA】1つのファイルにまとめる方法

    1つのフォルダの中に複数のExcelファイルが保存されています。 seat1だけを1つに集めたExcelファイルを新規で作成したいです。 ※シート1をどんどん追加させるイメージです。 ※フォルダの中に入っているExcelファイル数は毎月変わります。 手順(1)フォルダに入っているExcelシートを開く 手順(2)sheet1を【シートの移動またはコピー】新規BOOKにコピー 手順(3)フォルダに入っているExcel分繰り返す。 手順(4)シート名を変更する。    どういう風にVBAコードを記入すればいいかわからないので教えていただきたいです。どうぞよろしくお願いいたします。

  • VBAで拡張子の表示について

    こんにちは。 現在、Excelで簡単な集計表を作るためにVBAを使っています。 そしたら、自分のパソコンでは動くのですが、他のパソコンで実行したら動かないという現象が起きました。 ひっかかったのは下の文です。 Workbooks("Book1.xls").Close saveChanges:=False "Book1.xls"を"Book1"に訂正したら使用できたのですが、今度は逆に、自分の所でエラーが出てしまいました。 どなたかご存知のかた教えてください。 環境はWIN_NT、Excel97です。 よろしくお願いします。

  • VBA(Excel2007からExcel2003の注意事項)

    Excel2003のマクロが起動しません。 Excel2007で新しいマクロの記録(自動)を行ったExcelファイルがあります。それを別のPCのExcel2003で実行すると、エラーが発生し、プログラムが停止します。 (両方のファイルの拡張子は***.Xlsです。) VBAでExcel2003から2007にバージョンアップでは問題ないようですが、2007から2003にバージョンダウンするうえで注意事項があれば、教えて下さい。よろしくお願いします。

  • 同じ名前で拡張子が違うファイル

    ExcelのVBAで、同じ名前で拡張子が違うファイルを操作するマクロを使用しています。(○○.txtと○○.xlsなど) フォルダオプションで「拡張子を表示しない」設定になっていた場合におこりうる不具合を教えてください。 私は以下のような不具合に遭遇しました。 ○○.txtを読み込み○○.xlsにコピペするマクロ  ・まず○○.xlsを開く。  ・次に○○.txtを開き中身をコピー。  ・貼り付け先の○○.xlsをアクティブにしようとするが、   ○○.txtがアクティブになったまま。 そもそも同じ名前なのがいけないとは思いますが、ファイル名はそのままでエラーを回避できる方法があれば、それも知りたいです。 よろしくお願いします。

  • Excel2010のファイルが消える

    ファイルサーバー共有フォルダ内のエクセルファイル(Excel2003で作成したもの)を Excel2010(windows7)のクライアントで開き、上書き保存すると「ファイルを保存できませんでした」というメッセージが出ます。 このメッセージが出た後、該当共有フォルダを見ると、先ほど上書き保存したエクセルが消えており、TMPファイルが残っています。このTMPファイルの拡張子を.xlsにして開くと、消えたエクセルの内容が表示されます。 Windows7 & excel2010 のクライアントで頻繁に起こっています。 ネットで調べましたが、現象として発生していることが報告されたいますが、的確な回答がでてきませ。 解決策を教えてください。

  • Excel VBA でファイルが開かれているか確認する

    ExcelのVBAで、book1.xlsというファイルが現在開かれているか確認するにはどんなプロパティを使えばいいでしょうか? 実際にやりたい事は、book1.xlsに対して処理するマクロがあるのですが、そのbook1.xlsが開かれていなければ処理が出来ないのでマクロが入っているファイルを閉じる。というものです。

  • Excel2007VBAファイルの表示について

    ●質問の主旨 開いたダイアロボックス内のファイルについてエクセルファイル(.xlsxのみ)を 対象としたいと考えています。 下記コードをどのように書き換えればよいでしょうか? ご存知の方ご教示願います。私はVBA初心者です ●質問の補足 作成した下記のコードでは 「実行時エラー1004:GetOpenFilenameメソッドに失敗しました」 と表示されます。 参考書2冊読んで全くその通りに引用していて、なぜエラー表示に なるのかよく分かりません。 またTarget = Application.GetOpenFilename("Excelブック,*,xlsx")を Target = Application.GetOpenFilename()にするとダイアロボックスは 表示され、その中にあるエクセルファイルは表示されます。 ●コード Sub Sample3() Dim Target As String Target = Application.GetOpenFilename("Excelブック,*,xlsx") If Target <> "False" Then Workbooks.Open Target Else MsgBox "キャンセルされました" End If End Sub

  • <ACCESS VBA -> EXCEL>getObjectしたEXCELファイルのシートを指定したい

    ACCESSのVBAマクロでEXCELファイルを指定してデータを取得しようとしています。 GetObject("C:\ファイル名.xls", "Excel.Sheet") でEXCELファイルを取得するまでは良いのですが、そのファイルのシートを指定する方法がわかりません。 基本かもしれませんが、ご教示をお願いします。

専門家に質問してみよう