• 締切済み

VBA　1004　エラー

前月まで動いたVBAが　今月下記デバックのエラーがでてしまいましたが、どのようなエラーか分かりません。　どなたか教えてください。　microsoft365に切り替わっていますが、そのせいでしょうか Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & DnTxFl, _ Origin:=932, StartRow:=1, DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(794, 1), Array(1000, 1)), TrailingMinusNumbers:=True

回答 全件
Googleなどの検索サイトで VBA 1004 エラー で検索すると…

みんなの回答

  • kkkkkm
  • ベストアンサー率65% (1633/2477)
回答No.1

Googleなどの検索サイトで VBA 1004 エラー で検索すると色々出てきますからその中で該当するものが無いか確認してください。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • Excel VBAでテキストを開く際の表示形式

    恐れ入りますが、ご存知の方、ご教授願います。 Excel VBAにてテキストファイルを開く際に、表示形式を"標準"ではなく"文字列"で取り込もうと思います。 "文字列"にするにはVBAで下記のように記述します。 ------------------------------------------------------------------ Workbooks.OpenText Filename:= _ sFileName _ , Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _ Comma:=False, Space:=False, Other:=False, FieldInfo:=Array( Array(1, 2), Array(2, 2), Array(3, 2)) , TrailingMinusNumbers:=True ------------------------------------------------------------------ FieldInfo:=部分に列数だけArray(x, 2)を指定しますが、一括で"文字列"指定することは可能でしょうか。 恐れ入ります。ご教授願います。

  • ExcelのOpenTextで作ったシートのコピー

    Excel2010のVBAでテキストファイルを読み込むと新しいブックに読み込まれるので、新しいブックのシートをVBAのコードがあるブックにコピーしたいのですが CSVファイル読み込み時に使う　Workbooks.Open　の場合には 　Dim wb As Workbook 　Set wb = Workbooks.Open(Filename:="C:\test\test1.csv") 　wb.Worksheets(1).Cells.Copy ThisWorkbook.Worksheets("Sheet1").Range("A1") 　wb.Close False のような感じでコピーすることができたのですが テキストファイル読み込み時に使う　Workbooks.OpenText　の場合には 　Dim wb As Workbook 　Set wb = Workbooks.OpenText Filename:= _ 　　　"C:\test\test1.txt", _ 　　　Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ 　　　xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _ 　　　, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _ 　　　Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), _ 　　　Array(9, 2)), TrailingMinusNumbers:=True 　wb.Worksheets(1).Cells.Copy ThisWorkbook.Worksheets("Sheet1").Range("A1") 　wb.Close False とすると、OpenTextの箇所で「Workbooks.OpenText　Functionまたは変数が必要です」というコンパイルエラーが発生します。Set wb = Workbooks.OpenText (Filename:=・・・・True)のように括弧でくくっても同様のエラーがでてしまいます。 Microsoft Office 14.0 Object Libratyの参照設定はチェックされています。 Workbooks.OpenText Filename:= _・・・=Trueの部分はマクロの記録の機能で生成したコードです。 このような場合、どのように記述すればよいのでしょうか。 よろしくお願いします。

  • 至急：困っています：ExcelVBAでCSVのデータを配列に入れたいが

    初心者なので教えてください。 以下のコードを実行すると配列のセルの値がすべて1900/01/01になってしまいます。最初のデータは日付、それ以降は数値のはずなんですが。 どなたかお教えいただけないでしょうか？ なお、このコードはExcel97のもので今はOffice2003で実行しています。 ChDir "C:\AAA" Workbooks.OpenText Filename:="C:\AAA\BBB.TXT", _ StartRow:=1, _ DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(10, 1), Array(15, 1), _ Array(35, 1), Array(76, 1), Array(79, 1), Array(83, 1), _ Array(124, 1), Array(130, 1), Array(135, 1), Array(155, 1), Array(160, 1) _ )

  • Excel VBAでOpenTextのFieldInfoが効かない・・

    Excel2000のVBAマクロで、CSVファイルを読み込んで マッチング処理をしたいと考えています。 CSVファイルはコードテーブルで参照のみ。 中身は、「コード,名前,区分」の配列になっております。 コードは"0012345"と"12345"は別物として扱いたいので 文字列として読み込む必要があります。 CSVファイルの中身は以下の感じです。 12345,名前1,区分1 0012345,名前2,区分2 0000022222,名前3,区分1 ... そこで、以下のようなコードを書いて見ました。 Sub OpenCSV() Workbooks.OpenText Filename:="C:\CSV.txt" _ DataType:=xlDelimited, Comma:=True, _ TextQualifier:=xlTextQualifierNone, _ FieldInfo:=Array(Array(1,2),Array(2,2), _ Array(3,2)) End Sub ところが開いたシートではコード部分が文字列として 取り込まれておらず、セルの書式も標準になっています。 FieldInfoの設定方法を変えて、 Sub OpenCSV() Dim tmpInfo(256) As Variant Dim i As Integer For i = 1 to 256 tmpInfo(i) = Array(i,2) Next Workbooks.OpenText Filename:="C:\CSV.txt" _ DataType:=xlDelimited, Comma:=True, _ TextQualifier:=xlTextQualifierNone, _ FieldInfo:=tmpInfo End Sub このようなコードにしたところ、「型が一致しない（エラー１３）」というエラーになってしまいます。 結局、FieldInfoが効いてない動きなのですが、 どこが悪いのか皆目見当が付きません。 アドバイスを頂けますと幸甚です。

  • エクセル　VBA

    エクセルで指定したフォルダから シート１のA１セルに記入された名前のテキストファイルを 開くマクロを作りました 変数filepassがセルA1に記入されたファイルのパスのとして Workbooks.OpenText filename:=filepass, StartRow:=1 _ , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(1, 1) しかし このままだと指定したフォルダ（filepass)にファイルがなかったとき エラーになります もしファイルがなかったときに 何かメッセージを表示させたいのですが どのようにすればよいのでしょうか どなたか　教えてください VBAは素人です　よろしくお願いします

  • オブジェクト変数の取得について

    以下のようにOpenTextでファイルを開いてそれをオブジェクト変数に取得したいのですが 「Functionまたは変数が必要です」というエラーになります。 どなたかご教示ねがえませんでしょうか？ よろしくお願いいたします。 Set WorkBookObject =Workbooks.OpenText FileName:=strPath & strTxt, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _ Comma:=True, Space:=False, Other:=False, FieldInfo:=aryCell

  • エクセルで固定長レコードの読み込み方法

    エクセルで固定長レコード（１２８×ｎ）のEOFは最後に一つだけで改行コードもなしで、連続したレコードです。 １２８ごとにセルに入れたいのですがうまくいきません。 Sheets("my").Select Workbooks.OpenText Filename:="d:\と\my.txt", DataType:=xlFixedWidth, fieldinfo:=Array(Array(0, 1)) Windows("my.txt").Activate Range("a1").Select Selection.Copy Windows("eos my").Activate Sheets("in").Select Range("A1").Select '------------------------------------------------ Sheets("my").Select Workbooks.OpenText Filename:="d:\と\my.txt", DataType:=xlFixedWidth, fieldinfo:=Array(Array(127, 1)) Windows("my.txt").Activate Range("a1").Select Selection.Copy Windows("eos my").Activate Sheets("in").Select Range("A2").Select ActiveSheet.Paste

  • エクセル　マクロ　教えてください

    お世話になります エクセルのマクロ記録を使った結果が下記のようになりました。 そこで、ファイルは自分で選択して開きたいと思い 色々調べた結果　Application.GetOpenFilenameを使用すればよい事がわかりましたが、どの部分を変更すればよいのかわかりません やりたいことは、ｔｘｔファイルの中身の不要な部分を削除して必要な部分だけを取り出したいのです。 どうぞ、よろしくお願いします。 Sub Macro1() ' ChDir "C:\Documents and Settings\My Documents\next\aaa" Workbooks.OpenText Filename:= _ "C:\Documents and Settings\My Documents\next\aaa\aaa.txt" _ , Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _ Comma:=False, Space:=True, Other:=True, OtherChar:="(", FieldInfo:= _ Array(Array(1, 9), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 9), Array(7 _ , 9)), TrailingMinusNumbers:=True Cells.Select Cells.EntireColumn.AutoFit End Sub

  • エクセルVBAのコンパイルエラー

    下記VBAでコンパイルエラーを起こして進みません 解消法をご教授いただけると幸いです やりたいこととしては ボタンで任意のタブ区切りのテキストを指定し 特定のシートに値をコピーすることです ---- Private Sub CommandButton1_Click() Dim Sh As Worksheet Dim FileN As String Set Sh = ThisWorkbook.Sheets("import") ' <-- 読込みシート指定(※) FileN = Application.GetOpenFilename("テキストファイル,*.txt") If FileN <> "False" Then Workbooks.OpenText Filename:=FileN, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlTextQualifierNone, Tab:=True End If Set Sh = Nothing End Sub ----

  • loopでファイル名を取得したい

    loopでファイル名を取得して、テキストファイルをエクセルに保存していきたいのですが、 ↓ここ（StrFileName）でエラーになるのですが、どうしたらいいですか？ Workbooks.OpenText FileName:=StrFileName, Origin:=932, StartRow:= _ ---------------------------------------- Private Sub コマンド23_Click() Dim StrFileName As String Const EXTENSION As String = ".txt" StrFileName = Dir$(Me!FilePathName & "\*" & EXTENSION) '任意のフォルダを指定 Do Until Len(StrFileName) = 0 'ファイルが無くなったら終了 MsgBox StrFileName Workbooks.OpenText FileName:=StrFileName, Origin:=932, StartRow:= _ 1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _ , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _ Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 2), _ Array(10, 1), Array(11, 1), Array(12, 2), Array(13, 1), Array(14, 1), Array(15, 1), Array( _ 16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), _ Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array( _ 29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), _ Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 2), Array(40, 1), Array(41, 2), Array( _ 42, 1), Array(43, 1), Array(44, 1)), TrailingMinusNumbers:=True ActiveWorkbook.SaveAs FileName:=FolderName & ActiveSheet.Name, _ FileFormat:=xlNormal, CreateBackup:=False ActiveWorkbook.Close False StrFileName = Dir$ '次のファイル名を取得 Loop End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する