このマクロ処理をVBAにしたいのですが… -テキストファイル→Excelへ-

タブ区切りのファイルを読み込む

下記のコードでタブ区切りのファイルを読み込もうとしていますが、 Err.Numberの1004が発生して、先に進めません。カンマ区切りは動作しています。お手数をお掛けしますが、ご教示ください。 With Selection.QueryTable .Connection = "TEXT;" & nm .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=True End With 以上、よろしくお願いします。

Excel "A1"からのデータ取込

お世話になります。 Excel　VBAを使って開発しています。下記のコードでCSVファイルを読み込んでいます。データが必ず"AC1"にデータが取込されています。 "A1"からデータを取り込むようにしたいときは、どうすればいいのでしょうか ActiveWorkbook.Worksheets("system-view").Activate sheets("system-view").Select Cells.Select With Selection.QueryTable .Connection = "TEXT;" & nm .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=True End With 以上、よろしくお願いします。

Excel 「テキストファイルのインポート」ダイアログボックスを表示させない方法

excel2002の「データの取り込み」機能を使って外部テキストファイルをシート上に直接展開する作業をマクロ記録したところ、下記のようなマクロコードが自動生成されました。 With Selection.QueryTable .Connection = "TEXT;C:\hogehoge.txt" .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With これを走らせると、「テキストファイルのインポート」ダイアログボックスが開いて、インポートするファイルを選ぶよう求められるのですが、開くファイル名も決まっているので、このダイアログが出ないようにしたいのです。 vbaの記述でこのダイアログをすっとばす方法はあるのでしょうか？ご指導のほどよろしくお願いします。

現在のフォルダからテキストを読み込むエクセルマクロ

小さな会社で事務仕事をしております。仕事上、困ったことがあり、どなたか教えて頂きたいです。テキストファイルをエクセルに読み込み、ある文字にて区切り、セルに張りつけたいのです。テキストの数が多いため、マクロを作成したいと思っております。マクロの記録にて下記（ソース）まで来ているのですが、実際にやりたいのは、「現在のエクセルブックと同じフォルダにある」テキストファイルを読み込むことなのです。私が記録したマクロでは、「固定フォルダ」になっており、例えば、フォルダ名が変わってしまうと、動作しません（テキストを読み込めません）。 Sub Macro3() ' ' Macro3 Macro ' ' With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Users\crown_800\test.txt", Destination:= _ Range("$A$1")) .Name = "test" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = True .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = True .TextFileOtherDelimiter = "[" .TextFileColumnDataTypes = Array(1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub Webにてカレントディレクトリの取得方法を勉強し、下記ソースに反映しようとはしているのですが、うまくいきません。どなたかご相談に乗って頂けないでしょうか？よろしくお願いいたします。

現在のフォルダからテキストを読み込むエクセルマクロ

小さな会社で事務仕事をしております。仕事上、困ったことがあり、どなたか教えて頂きたいです。テキストファイルをエクセルに読み込み、ある文字にて区切り、セルに張りつけたいのです。テキストの数が多いため、マクロを作成したいと思っております。マクロの記録にて下記（ソース）まで来ているのですが、実際にやりたいのは、「現在のエクセルブックと同じフォルダにある」テキストファイルを読み込むことなのです。私が記録したマクロでは、「固定フォルダ」になっており、例えば、フォルダ名が変わってしまうと、動作しません（テキストを読み込めません）。 Sub Macro3() ' ' Macro3 Macro ' ' With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Users\crown_800\test.txt", Destination:= _ Range("$A$1")) .Name = "test" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = True .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = True .TextFileOtherDelimiter = "[" .TextFileColumnDataTypes = Array(1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub Webにてカレントディレクトリの取得方法を勉強し、下記ソースに反映しようとはしているのですが、うまくいきません。どなたかご相談に乗って頂けないでしょうか？よろしくお願いいたします。

エクセルのマクロ

エクセルに 1、コマンドボタンを押す 2、貼り付けたいテキストファイルを選ぶ →B3のセルから貼り付けるというマクロを組みました以下のマクロがそうなんですが、このマクロだと1つのテキストファイルしか貼り付けれません 2回目以降も貼り付けを同じボタンで繰り返しその前に貼り付けたデータのB列最終セルの一つ下のセルから同じようにテキスト貼り付けを行えるようにはすることは可能でしょうか？ Private Sub CommandButton1_Click() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With fd Dim txtpass As Variant If .Show = -1 Then 　For Each vrtSelectedItem In .SelectedItems txtpass = "TEXT;" & vrtSelectedItem Next vrtSelectedItem Else End If End With With ActiveSheet.QueryTables.Add(Connection:= _ txtpass, Destination:=Range("$B$3")) .Name = "4" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _ , 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

データ読み込み→数行ごとの折り返しについて

このようなマクロを作りました。 ------------------------------------------------- Sub test() 'TXTファイル読み込みダイアログボックス Dim FileToOpen As String FileToOpen = Application.GetOpenFilename("テキストファイル (*.txt), *.txt") '読み込んだファイルの計算 With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileToOpen, Destination:=Range("B11")) ' .Name = "*" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 4 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9) .Refresh BackgroundQuery:=False End With End Sub ------------------------------------------------- これだけでは、B列に並んでしまうだけなのでこれを20データごと次の列に入力できるようにしたいのですがいろいろ調べたのですがわかりませんでした。読み込むテキストは100行あると考えてくださいわかる方がいましたらよろしくお願いします。

エクセル　マクロ

以下のコードではテキスト(ｔｘｔ)ファイルのデータをエクセルへ貼りつけるものですが貼りつけるテキストファイルを参照し選ぶ際、テキストファイル以外を選ぶとエラーが起きてしまいますテキストファイル以外を選んで実行した場合はメッセージボックスを表示するようにはどうすればよいですか？ Private Sub CommandButton1_Click() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With fd Dim txtpass As Variant If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems txtpass = "TEXT;" & vrtSelectedItem Next vrtSelectedItem Else MsgBox "キャンセルされました" Exit Sub End If End With With ActiveSheet.QueryTables.Add(Connection:= _ txtpass, Destination:=Cells(Rows.Count, 2).End(xlUp).Offset(2, 0)) .Name = "4" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .TextFileStartRow = 2 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(2, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

今日と昨日の日付.CSVファイルを選択し読み込む

日付.csvのファイルが下記のように同じフォルダーに自動書き出しされています。 20171101.csv 20171102.csv 20171103.csv このファイル群から、今日と昨日のファイルだけを選択して、一枚のxlsシートに書き出すマクロはどうすればいいでしょうか？現在は、下記11行目を日々書き直して処理しています。よろしくご教示をお願いします。 Sub Macro1() ' ' Macro1 Macro ' ' Keyboard Shortcut: Ctrl+a ' Range("B4:E10000").Select Selection.ClearContents Range("B4").Select With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;Z:\bme280-data\20171130.csv", Destination:=Range( _ "$B$4")) .Name = "No1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False Call Macro2 End With End Sub

ＣＳＶデータをEXCELシートに展開したい

ＣＳＶデータをＥＸＣＥＬシートに展開しようとしています。シート1にボタンを用意して、クリックするとシート２に展開されるというようなことをしたいのです。以下のコード（マクロを組んで作られるコードです）だと、シート２に取り込まれないです。どのようにすればシート２に展開されるでしょうか？ Private Sub CommandButton2_Click() Dim SH As Worksheet ' Set SH = Worksheets("Sheet2") With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\temp\test1.", _ Destination:=Range("A1")) .Name = "test1 .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .Refresh BackgroundQuery:=False End With よろしくお願いします。

excel2007マクロ複数のtxtファイル取り込みについて

excel2007マクロ複数のtxtファイル取り込みについて複数のtxtファイルを1つのシートに1つのファイルを取り込むようなマクロを作成したいのですが上手くいきません。以下は実際の入力内容です。このマクロを実行すると下から5行目の .Refresh BackgroundQuery:=False の箇所にエラーが表示されるのですが、解決方法がわかりません。わかりにくい質問で申し訳ありませんがお答え頂けると助かります。宜しくお願いします。 Sub Macro4() ' ' Macro4 Macro ' ' Dim i As Integer For i = 1 To 10 With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Documents and Settings\owner\My Documents\test3\BD3.ds0_i.txt", _ Destination:=Range("$A$1")) .Name = "BD3.ds0_i" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = True .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = True .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With Sheets("Sheet(i+1)").Select Next i End Sub

エクセルマクロ

マクロで外部参照などを出す場合に Escボタンを途中で押すと中断し下記の添付画像のような表示が出ます。途中でキャンセルした場合(Escなど？) 画像のようなエラーを出さずにエラー(コメントを作る)メッセージを表示させて作業を中断することは可能でしょうか？可能な場合、下記のどの部分に追加するといいでしょうか？下記はテキストファイルを参照しエクセルに貼り付けるというマクロです Private Sub CommandButton1_Click() 　Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With fd Dim txtpass As Variant If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems txtpass = "TEXT;" & vrtSelectedItem Next vrtSelectedItem Else End If End With With ActiveSheet.QueryTables.Add(Connection:= _ txtpass, Destination:=Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)) .Name = "4" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _ , 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

データの取込におけるドライブの指定について

エクセルのSheet1に設置した集計ボタンによって、Sheet2にCSVを取り込む処理をさせました。しかし、csvのあるドライブが常に固定されていないためにドライブを選択できるようにしたいのです。下記はマクロの記録で作成した記述ですが、3行目のHをSheet1のセルA1の値で指定させる方法を教えて下さい。 Sheets2.Select Cells.Select With ActiveSheet.QueryTables.Add(Connection:="TEXT;H:\売上集計表.csv", _ 　Destination:=Range("A1")) .Name = "売上集計表_29" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .Refresh BackgroundQuery:=False End With 素人のため、上記マクロをApplication.Run"＠"で処理させています。他にスマートな記述がありましたらその方法も教えて下さい。

Excelマクロ繰り返し？の設定方法を教えて下さ

BetMasterという競馬ソフトに記述されている「TXT\2」のデータを抽出し、Sheets("出馬表集計")に貼り付け、「TXT\1」のデータを抽出し、Sheets("結果集計")に貼り付ける以下のようなマクロを組んでいます。1日終わるごとにTXT\2とTXT\1を作成してこの集計をしていたのですが、約1年間サボってしまい100回近く、このマクロを作動させなければならなくなりました。そこで、TXT\1～100まで作成して、TXT\2とTXT\1の貼り付けが終わったら、「TXT\4とTXT\3」、「TXT\6とTXT\5」、「TXT\8とTXT\7」...............と「TXT\100とTXT\99」まで繰り返し抽出と貼り付けを行うようにしたいのですがどうしたらよいでしょうか。問題は、50回繰り返すことと、2回目以降は前回終了の次の行に貼り付けるという点です。よろしくお願い致します。 'BetMasterから出馬表データの取り込み ActiveWorkbook.Worksheets.Add With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\BetMaster\TXT\2.", Destination:=Range("A1")) .Name = "1." .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _ , 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _ , 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .Refresh BackgroundQuery:=False End With 'Sheets("出馬表集計")に貼り付け Cells.Select Application.CutCopyMode = False Selection.Copy Sheets("出馬表集計").Select Range("A1").Select ActiveSheet.Paste Sheets("Sheet1").Select ActiveWindow.SelectedSheets.Delete 'BetMasterから結果データの取り込み ActiveWorkbook.Worksheets.Add With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\BetMaster\TXT\1.", Destination:=Range("A1")) .Name = "1." .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _ , 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _ , 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .Refresh BackgroundQuery:=False End With 'Sheets("結果集計")に貼り付け Cells.Select Application.CutCopyMode = False Selection.Copy Sheets("結果集計").Select 　　Range("A1").Select ActiveSheet.Paste Sheets("Sheet1").Select ActiveWindow.SelectedSheets.Delete

【ExcelVBA】外部データ取り込みマクロ

お世話になります。日付からファイル名を探し出し、外部データの取り込みのマクロでインポートさせたいと考えておりますがファイル名が存在しないとエラーが表示されます。VBAを始めたばかりなのでおかしい場所が解りません。ご教示いただけますでしょうか。 ---------------------------------------------- ・既存データを削除する。・前月度のテキストデータを取得し、インポートを行う。・外部データの取り込みはマクロ記録を使用し修正。・変数にファイル名が格納された事は確認済み。・ファイルパス：固定・ファイル名規則：「yymm.txt」 ---------------------------------------------- Sub データ入力表() Worksheets("データ入力表").Activate Columns("A:B").ClearContents imptest Worksheets("セッション数").Activate End Sub Sub imptest() yy = Year(Date) mm = Format(Date - 30, "mm") yymm = Right(yy, 2) & mm & ".txt" With ActiveSheet.QueryTables.Add(Connection:="TEXT;I:\temp\%yymm%" _ , Destination:=Range("A1")) .Name = "1011" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 9, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

複数個のａｓｃファイルを１つのシートにまとめたい．

データの整理をするように言われ作業をしていたのですが，時間がかかりすぎてしまい他の仕事が出来ません．マクロを使えば作業時間を短縮できることが分かったのですが，簡単なBASICプログラムしか組んだことがなく困っております．【やりたい事】１→C:\データ1 というフォルダの中にある20個のascファイルをシート１にまとめ，次にC:\データ2 というフォルダの中にある20個のascファイルをシート２にまとめたい．（フォルダごとにシートを新しくしたい）２→さらに，それぞれのシートで１個目のデータはA1から，２個目のデータはD1から…２０個目はBF1からはじめるようにしたい３→列の幅を調整して全ての文字が表示されるようにしたいとりあえず，テキストファイルのインポートをやって記録してみたので載せておきます． Sub Macro1() ' ' Macro1 Macro ' ' With Selection.QueryTable .Connection = _ "TEXT;C:\データ1\DATA1117.ASC" .TextFilePlatform = xlWindows .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1) .Refresh BackgroundQuery:=False End With End Sub 皆様，よろしくお願いします

マクロでセル内の改行を削除する方法

システムから抽出したCSVファイルをExcelで読み込むと同時に不要な列を削除します。その際、セル内の改行が邪魔で行がずれてしまいます。すでに記述したコードを生かしながら、セル内の改行を削除する方法はありますでしょうか？以下がコードです Private Sub CommandButton1_Click() '//Sheet7のセルをクリア Sheets("Sheet7").Cells.Clear '// Sheet7のA1にissue_export.csvを読み込み With Sheets("Sheet7").QueryTables.Add(Connection:="TEXT;C:\*****.csv", Destination:=Sheets("sheet7").Range("A1")) Dim R As Range For Each R In Sheets("Sheet7").Range("A1") R.Value = Trim(Replace(R.Value, vbCr, "")) R.Value = Trim(Replace(R.Value, vbLf, "")) Next R .Name = "test" .FieldNames = True .RowNumbers = False .Refresh BackgroundQuery:=False .RefreshPeriod = 0 .RefreshOnFileOpen = False .PreserveFormatting = True .AdjustColumnWidth = True .FillAdjacentFormulas = False .RefreshStyle = xlInsertEntireRows .SavePassword = False .SaveData = True .TextFilePromptOnRefresh = False .TextFileParseType = xlDelimited .TextFileStartRow = 1 .TextFilePlatform = 65001 .TextFilePlatform = xlWindows .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = True .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileTrailingMinusNumbers = False .TextFileColumnDataTypes = Array(9, 9, 9, 9, 2, 9, 2, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 2, 2, 2, 9, 2, 2, 2, 2, 2, 2, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9) .Refresh .Parent.Names(.Name).Delete .Delete End With End Sub

EXCELのVBAで元のブック名へ戻す方法

得意先サブマスタ作成.xlsmというブック名でマクロを作成しています。その中でCSVファイルを読み込んでエクセルへ変えて保存をしています。 With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Users\*******\Desktop\得意先変換マスタ.csv", Destination:=Range("$A$1")) '.CommandType = 0 .Name = "得意先変換マスタ" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\Users\honb014\Desktop\得意先変換マスタ.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Application.DisplayAlerts = True このコードで行っているのですが、実行すると当然ですがアクティヴなブック名は得意先変換マスタ.xlsxになっています。これを元の得意先サブマスタ作成.xlsmに戻す方法はありますか？マクロでこの後に続く箇所で上記の得意先変換マスタ.xlsxを使用する際にエラーが出てしまい、このような質問をさせていただきました。宜しくお願い致します。

エクセルVBAでCSV読み込みについて質問します。

エクセルVBAでCSV読み込みについて質問します。外部データの取り込みマクロを自動記録で作成しましたが、 csvファイル名が決まってしまうで、他のＣＳＶファイルに展開できません。できれば、マクロ実行（ファイル選択）ボタンを押すとウィンドウが出てきて、任意の場所にあるCSVファイルを選択できるようにできないでしょうか？マクロは、書き込むエクセルブックが開いている状態からスタートし、シート名は共通です。自動記録で完成したマクロは以下の通りです。 With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:￥Documents and Settings￥USER￥My Documents￥VBA￥マクロ￥取り込み￥TEST1.csv" _ ’”￥”が誤変換されるので、直接入力しました。　　　　　, Destination:=Range("M6")) , Destination:=Range("M6")) _ , Destination:=Range("M6")) .Name = "290TEST1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _ 2) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 4 '以下、続くので省略しました。 End Sub どなたか、お助けお願いします。

Excel　VBでのデータの取り込み方

Excel　VBを使って、デスクトップにあるcsv形式のデータを取り込むマクロを作りました（「マクロの記録」にて）。データは10個あるので、同じようなマクロを10個作っています。そこで、取り込むcsvのファイル名ですが、01.csv、02.csv、…、10.csvという名前になるように1つ1つ名前の変更をしてから取り込んでいます。これをもとのファイル名のままで、番号の若いもの順から取り込むということは出来ないでしょうか。元のファイル名は「1002.csv」「1234.csv」「3456.csv」などと「（4ケタの数字）.csv」です。今、使っているVBは以下の通りです（長くてすみません）。どうぞよろしくお願いいたします。 ------------------------------------------------------------------------ Sub data01取り込み() ' ' data01取り込み Macro ' ' Sheets("data1").Select Range("A1").Select With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Users\user\Desktop\データ\01.csv", Destination:=Range("$A$1")) .Name = "cell1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With Range("E2:E400").Select Selection.Copy Sheets("計算").Select ActiveWindow.SmallScroll Down:=-16 Range("e4").Select ActiveSheet.Paste End Sub ----------------------------------------------------------------

このマクロ処理をVBAにしたいのですが…

みんなの回答

お礼 2006/12/27 19:08

関連するQ&A

タブ区切りのファイルを読み込む

Excel "A1"からのデータ取込

Excel 「テキストファイルのインポート」ダイアログボックスを表示させない方法

現在のフォルダからテキストを読み込むエクセルマクロ

現在のフォルダからテキストを読み込むエクセルマクロ

エクセルのマクロ

データ読み込み→数行ごとの折り返しについて

エクセル　マクロ

今日と昨日の日付.CSVファイルを選択し読み込む

ＣＳＶデータをEXCELシートに展開したい

excel2007マクロ複数のtxtファイル取り込みについて

エクセルマクロ

データの取込におけるドライブの指定について

Excelマクロ繰り返し？の設定方法を教えて下さ

【ExcelVBA】外部データ取り込みマクロ

複数個のａｓｃファイルを１つのシートにまとめたい．

マクロでセル内の改行を削除する方法

EXCELのVBAで元のブック名へ戻す方法

エクセルVBAでCSV読み込みについて質問します。

Excel　VBでのデータの取り込み方

注目のQ&A

カテゴリ

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

専門家に質問してみよう

このマクロ処理をVBAにしたいのですが…

みんなの回答

お礼 2006/12/27 19:08

関連するQ&A

タブ区切りのファイルを読み込む

Excel "A1"からのデータ取込

Excel 「テキストファイルのインポート」 ダイアログボックスを表示させない方法

現在のフォルダからテキストを読み込むエクセルマクロ

現在のフォルダからテキストを読み込むエクセルマクロ

エクセルのマクロ

データ読み込み→数行ごとの折り返しについて

エクセル マクロ

今日と昨日の日付.CSVファイルを選択し読み込む

ＣＳＶデータをEXCELシートに展開したい

excel2007マクロ複数のtxtファイル取り込みについて

エクセルマクロ

データの取込におけるドライブの指定について

Excelマクロ 繰り返し？の設定方法を教えて下さ

【ExcelVBA】外部データ取り込みマクロ

複数個のａｓｃファイルを１つのシートにまとめたい．

マクロでセル内の改行を削除する方法

EXCELのVBAで元のブック名へ戻す方法

エクセルVBAでCSV読み込みについて質問します。

Excel VBでのデータの取り込み方

注目のQ&A

カテゴリ

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

専門家に質問してみよう

Excel 「テキストファイルのインポート」ダイアログボックスを表示させない方法

エクセル　マクロ

Excelマクロ繰り返し？の設定方法を教えて下さ

Excel　VBでのデータの取り込み方