教えていただきたい質問があります。 やっぱり、10ファイル目(さっきとは違うファイル)までしか処理されない、              Operation:=xlNone, SkipBlanks:=False, Transpose:=False  Case "1" To "30", "日報"   Do 本エラーの原因はいくつか想定できます。 順を追ってみていきましょう。 ケース1:Cellsの指 … Dim task_cnt As Integer エラーした際にデバッグすると下のような処理の中でのPasteSpecialにハイライトが掛かっており、4つのうちどれでも起こりうるようです。 実行時エラー”1004” 実行時エラー '1004' アプリケーション定義またはオブジェクト定義のエラーです。 エラーの発生理由について. Range("A2").Select With Sheets("Sheet2") もし、10ファイル目で発生した場合、何度実行しても必ず、10ファイル目までしか処理されない。 '転記マクロの中のDMリストシートをコピーする   Dim i As Long     Sheets(評価シート).Select Workbooks("転記用マクロ.xlsm").Worksheets("DMリスト").Copy Before:=dWB.Worksheets("Sheet1")   Application.CutCopyMode = False コードの行頭にあるスペースは見易さのために全角スペースで作成していますので、これをこのままコピペするとエラーになるかもしれません。 next i ActiveSheet.Range(ActiveSheet.Cells(8, 1), ActiveSheet.Cells(1587, 2)).Select ラベルの文字も消えてしまいます。 というわけです。 'エクセルデータに変換されたファイルのあるフォルダを選択します。 ---------------------------------------- If sFile = "" Then Exit Sub このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。 Range(Cells(8, 1), Cells(1587, 2)).Select 「Application.CutCopyMode = False」  Select Case StrConv(Trim(ActiveSheet.Name), vbNarrow) DoEvents というわけです。 しかしこれだとuserformの背景が真っ白になってしまい と書いておけば安心です。 「Application.CutCopyMode = False」をすると、 userform1.progressbar1.value=i/5000*100 for i =1 to 5000 End If いろいろ調べては見たのですが、当方初心者の為、わからずじまいです。お手数ではございますが、どなたかご教授願います。  .Close file VBA 実行時エラー1004 rangeメソッドは失敗しました。globalオブジェクトのエラー. いろいろ調べては見たのですが、当方初心者の為、わからずじまいです。お手数ではございますが、どなたかご教授願います。 というものがよく出てきますが、これは何でしょう? 皆さんは、vbaで「実行時エラー '1004'」というエラーを見たことがありますか? 「実行時エラー '1004'」のエラーは、メッセージを見ただけではエラーの意味がよく分からないため、対処方法がわからず困る方も多いのではないでしょうか。 そこで今回は、 「実行時エラー '1004'」のエラーが出 … ここでDMNの値を四捨五入したいです。 自宅で別データを作ってやってみるとうまくいきました。 新規bookに(1)Paste:=xlPasteValues (2)Paste:=xlPasteColumnWidths (3)Paste:=xlPasteFormats の順に貼り付けし保存するものです。 Range("cells(8,1):cells(1580,1),cells(8,s+2):cells(1580,s+2)").Select もう少しわかりやすく教えていただけませんか。   Next i 下記にマクロ内容全部記載します。 理由/対処方法がわかればありがたいと思い質問させていただきます。 userform1.show Range("A1").Select   myRng.Copy 実行時エラー '1004' アプリケーション定義またはオブジェクト定義のエラーです。 エラーの発生理由について. ActiveSheet.Unprotect Password:="1111" cells(i,1)=""   Next i >VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり dSheetCount = dWB.Worksheets.Count ------------ お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, http://www.excel.studio-kazu.jp/kw/2008120301302 …, エクセルのデータ並び替えで 漢字やカタカナアルファベット順に並んでいるものをあいうえお順にうまく並べ, エクセルで同じA列の中に、1,2,3,4,5,6,2,3,4,2,1,3,2,2,2,3,1という, VBA、セルについての質問です。 3,2 2,7 1,6 3,3 7,4 2,5 1,3 4,6 ワ, 「Excel VBA」 Webクエリ マクロ「実行時エラー"1004"」一時ファイル容量少、IE7で実行不可能, Excel VBA 並び替えについて お手数をおかけします 下記条件のようなプログラムを作りたいので. 本エラーの原因はいくつか想定できます。 順を追ってみていきましょう。 ケース1:Cellsの指 … 'task_name(12) = rest2 その点滅がなくなります。, 「Application.CutCopyMode = False」の前で  Select Case StrConv(Trim(ActiveSheet.Name), vbNarrow) Next Sheets("C").Select 'シート名をセルA2の値に変更 実行時エラー '1004' 今回の投稿では、 Excel VBA の Select メソッドでエラーが発生した場合の対処方法を書いていきたいと思います。 実行時エラー'1004' Range クラスの Select メソッドが失敗しました。 目次まで戻る.   .Range(.Cells(8, 1), .Cells(1587, 2)).Select コピペするなら行頭の全角スペースを半角スペースに直してください。, 簡単に言うと、 よろしくお願いいたします。, こんにちは。 Charts.Add で、このマクロだと900位までですと最後まで行くのですが、それを超えるとリストが95位で止まってしまいます。 DoEvents     氏名(行) = Cells(行 + 1, 2).Value 現在、マクロを作成し、実行すると毎回ある部分で >しかし、何が原因でエラーになるか自分では分かりません。 sWB.Worksheets("sheet1").Copy After:=dWB.Worksheets(dWB.Sheets.Count) Dim project_name End With DMN = ZPOS / ZPS  End Select If 対象列 = "L" Then 実行時エラー '1004'「RangeクラスのPasteSpecialメソッドが失敗」 Private Sub CommandButton1_Click() End With そこで「EXCEL VBA パーフェクトマスター」という本を見たら ActiveWindow.Close Private Canceled As Boolean ActiveSheet.Paste ですね。 unload userform1 '繰り返し ThisWorkbook.Activate sFile = Dir() 返すにはどうしたらいいのでしょうか?   ↑この部分が毎回エラーを起こしています 回避方法は、Open 文の前に DoEvets の1行を書く事。 時間が掛かるループ処理などの場合、ループが終わるまで制御は独占されてしまいます。 Cells.Select   myRng.Copy OS Windows8.1 なので、昨日までOKだったのに、今日データが変わった為、急にダメになったりする。 提供していただいたコードに修正してみたところ,正しく動作いたしました. 何度目かでオープンが実行されず、エラーなしでスルンと終わります。 の様にして下さい。   Application.Calculation = xlCalculationManual     ReDim Preserve 氏名(行) >いましたら、教えていただけませんか? Next .ChartTitle.Characters.Text = "0810p2x" などとしていれば、ActiveシートがSheet1になっていますから、エラーになります。 安全(?)の為、前後をはさんでおいた方が良いと思います。 エラーが生じ、にっちもさっちも行かない状態です。以下の内容を記述してあります。 Private Sub Workbook_Activate() ユーザーフォームの背景が真っ白になってしまう原因も sWB.Close *********************************************** Range("L12:L243").Select End Sub, マクロ実行時に、エラー’1004RangeクラスのPasteSpecialメソッドが失敗と表記され、マクロが実行されません。 If 対象列 = "L" Then  Range("G3").Select Dim myRng As Range 'ActiveSheet.Name = Range("A2").Value VBAやプログラミングに詳しい皆様に で、現在 "アクティブにして" 操作対象になっているブックの名前は 以下の場合、貼り付け処理でエラーになります。 2 / クリップ              Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'task_name(10) = rest1 データが少し変わればOKだったりする。 まず、シート名の長いコードは、これだけでよいはずです。 DoEvents を入れることによって、ループ中にユーザーがCommandButton2 を押すことによって CommandButton2 のクリック イベントも動いちゃいます。 myRng.Sort key1:=.Cells(11, 10 + 基準列)  Case "1" To "30", "日報" ********************************************************* 貴重な情報の提供感謝いたします., ご回答有り難うございます.解決いたしました.                  FileFormat:=xlNormal http://support.microsoft.com/kb/210684/ja, ネットで探してみたのですが、計算結果を四捨五入して特定のセルを >しました。’global’オブジェクト) 上記の例では、RangeとかCellsの上位オブジェクトであるシート名が省略されています。 VBAやプログラミングに詳しい皆様に だいたいこれで直りますが、これで直らなかったマクロもあったので、 OS に制御を渡すってことです。(ヘルプそのまんま) sFile = Dir(SOURCE_DIR & "*.xls") Selection.Copy End Sub ThisWorkbook.Name よろしくお願いします。 下記のマクロで、一つのブックからSheet1だけをコピーして来て、少し処理をし、元のブックを閉じるというもので、ブックの数は多くて3000程、少ない時は300位です。 Selection.PasteSpecial Paste:=xlPasteValues   For 回数 = 1 To 人数 下記のマクロで、一つのブックからSheet1だけをコピーして来て、少し処理をし、元のブックを閉じるというもので、ブックの数は多くて3000程、少ない時は300位です。 MsgBox (task_name(task_cnt)) ZPOS = Sheet1.Cells(22, 4).Value エラーメッセージもない、何事もなく終了するが10ファイルしか処理されていない、 'task_name(11) =task2 **該当コード** ActiveChart.SeriesCollection(1).Name = "=""0810p2x""" そ...続きを読む, 簡単に言うと、 ActiveWorkbook.Name If j = 1 Then 対象列 = InputBox("対象列を入力") -----------------------------------------...続きを読む, お世話になっております。     行 = 行 + 1 貼り付けする処理をしています。 エラーが生じ、にっちもさっちも行かない状態です。以下の内容を記述してあります。 処理終了後、ファイルを閉じるときに、クリップボードに っていうフォームのコードがあった場合、 'task_name(14) = rest3 ただいまエクセルでグラフを作成しています。作業自体は単純作業の繰り返しなのでVBAを用いてやりたいのですが、マクロを実行したときに実行時エラー’1004’rangeメソッドは失敗しました。’_global’オブジェクトとメッセージが出て、実行できません。 デバックをすると以下の5行目で黄色のバーが出ていました。自分なりに原因を考えたのですがrangeの関係するところに、Range("A8:A1587,e8:e1587")というような変数を用いないやり方でやると上手くいくので、変数に関する定義がまずいと思うのですが、それ以上の事は分かりません。どなたか、分かる方がおりましたら、よろしくお願いします。また、プログラムは以下のようになります。 こんな感じ: SkipBlanks:=False, Transpose:=False CommandButton1 のクリック イベントではループの前に With Workbooks.Add Dim DMN As Double 教えていただきたい質問があります。 ActiveSheet.Protect Password:="1111" ①標準モジュールに記述した場合は処理時点でアクティブなシート MsgBox (" >>> 初期値入力します <<< ") cells(1,1)からcells(5000,1)までの値を消去するときに   行 = 1 2, 回答 ある形式に沿って保存されている大きめのファイル(4つで1組)をマクロによって数式処理させるマクロとなります。 ActiveSheet.Protect Password:="1111" 'myfileに4つを貼り付け(今回は省略してますがForで回して4つ出揃った後、それらで数式処理) コピー元のブックにはテキストデータのみで、200文字から500文字...続きを読む, http://oshiete.goo.ne.jp/qa/8750372.html End If, ご丁寧にどうも有難う御座いました。 '集約用ブックを保存する ------------ ...続きを読む, EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。 Worksheets("日報").Range("A3:AF36").Copy と書いて CommandButton を有効に戻してください。  .ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteFormats, _ Do どうもコピーとペーストのタイミングの様です, こんにちは。 MsgBox (task_cnt)     If Canceled = True Then Sheets("A").Range("L12:L243").copy *****以下エクセルのエラーメッセージ************************ '指定したフォルダ内にあるブックのファイル名を取得 End Sub, ご回答有り難うございます. ------------ cells(i,1)="" Private Sub CommandButton1_Click() ***************************** Sheets("B").Select 3.RangeクラスのCopuメソッドが失敗しました。 エクセルで「実行時エラー‘1004’」が発生する原因 「実行時エラー‘1004’」を修復するには、まずこのエラーが出る原因を知っておく必要があると思います。 結果、フォームの再描画などが行われることになります。  .ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths, _ ActiveChart.ChartType = xlXYScatter Set dWB = Workbooks.Add     Cells(4, 5) = 氏名(回数) WorksheetクラスのCopyメソッドが失敗しました。 DMN = Application.RoundUp(ZPOS / ZPS, 0) MsgBox (" >>> 補間誤差自動計算 <<< ") このエラーコードが「シートが正しく指定されていない」ということは理解したのですが,WITH文内 Cells.Select ElseIf j = 2 Then 理由/対処方法がわかればありがたいと思い質問させていただきます。 End Sub, 以前別のカテゴリで質問したのですが、そちらでは解決出来なかったので、こちらで改めて質問します。 End Sub, ①ステップイン実行でエラー箇所を特定し、1004エラーが掃かれる。 Workbooks(fName).Close savechanges:=False ≪例1≫   Dim i As Long teratailを一緒に作りたいエンジニア, Worksheets("Sheet1")ではなく、Worksheets("To-Do リスト")としたら実行は通りますが、, なるほど。ちょっと勘違いしていました。回答を編集したのですが、そちらではどうでしょうか?. 途中に DoEvents を入れると制御が OS に渡るので、OS は溜まっていた処理をそこで行うことができます。  End Select ------------       Exit Sub ElseIf j = 3 Then 3 / クリップ ********************************************** for i =1 to 5000 End Sub   Dim i As Long エラーの再現 task_name(task_cnt) = "小休止" & rest_cnt そこで下記のようなコードを入力しました。 Dim sFile As String コピーの内容が残っている旨のメッセージがでてきます。 実行時エラー '1004'「RangeクラスのPasteSpecialメソッドが失敗」というエラーが実行時に出たり出なかったりします。常にエラーが出てくれればそれはそれで(?)いいのですが、普通に実行できることもあるので自分には対処できませんで 新規bookに(1)Paste:=xlPasteValues (2)Paste:=xlPasteColumnWidths (3)Paste:=xlPasteFormats の順に貼り付けし保存するものです。  Range("I3").Select  Range("H3").Select 引数で、対象桁を変更できます。, 以前別のカテゴリで質問したのですが、そちらでは解決出来なかったので、こちらで改めて質問します。 これを工夫すれば、CommandButton2 で CommandButton1 のループを途中キャンセルする処理もすることができます。 常にファイル名を取得出来るVBAをどなたか、教えて下さい。, >現在開いているブックのファイル名 実行時エラー '1004' 今回の投稿では、 Excel VBA の Select メソッドでエラーが発生した場合の対処方法を書いていきたいと思います。 実行時エラー'1004' Range クラスの Select メソッドが失敗しました。 目次まで戻る. project_name = Cells(7, 2) の部分を                  ActiveSheet.Range("n2") & "日_日報.xls", _ Application.CutCopyMode = False 1, 【募集】 Worksheets("Sheet1").Cells(1, 1).Value = project_name, 'セル着色【エラー箇所↓】              Operation:=xlNone, SkipBlanks:=False, Transpose:=False Withステートメントを使えばスッキリ纏めることができます。 Selection.Copy VBAでAutoFillメソッドを使ったときに「実行時エラー1004、AutoFillメソッドが失敗しました」がなってしまうケースがあります。今回はAutoFillメソッドで失敗するときの対処方法について徹底的に説明していきます。AutoF  Selection.PasteSpecial Selection.Copy Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ 1人だけ、自分の質問に「直った」と自己回答している方がいて、Open文の前にDoEvetsをつけたら直ったそうです。 .Axes(xlCategory, xlPrimary).HasTitle = True   Sheets(社員一覧).Select With ActiveChart Application.ScreenUpdating = False   Application.Calculation = xlCalculationManual 躓いた時は、Web検索して欲しい情報を得たり、あるいは、こうした掲示板で先輩方の