No.28ベストアンサー
- 回答日時:
うまく読み込めたようでよかったです。
あと一息ですね。まず、ダイアログを出さないようにする変更点ですが、以下の、
If MsgBox("NC(" & TMPFILE2 & ")がみつかりません。続行しますか?", _
vbYesNo, "NCファイルエラー") = vbNo Then
MsgBox ("処理を中断しました。")
Exit Sub
End If
をまるまるカットしてください。
そして、ログの書式変更ですが、このすぐ上の、
If l1 = 3 Then
L.Cells(l1, 1) = "エラーが発生したファイル"
l1 = l1 + 1
End If
L.Cells(l1, 1) = "Z表:" & FILE1
L.Cells(l1 + 1, 1) = "NCファイル検索文字列:" & TMPFILE2
l1 = l1 + 3
を、
If l1 = 3 Then
L.Cells(l1, 1) = "エラーが発生したファイル"
L.Cells(l1 + 1, 1) = "Z表"
L.Cells(l1 + 1, 2) = "NC検索文字列"
l1 = l1 + 2
End If
L.Cells(l1, 1) = FILE1
L.Cells(l1, 2) = TMPFILE2
l1 = l1 + 1
に置きかえてください。(ログシートの列の幅は適当に調節してください)
本当にありがとうございます。無事に完了しログも整理しやすい状態となりました。マクロは出来ると本当に便利ですね。少しぐらい出来るように頑張らないといけませんね。 今回のご協力いただいた内容を少しぐらいは理解出来るように頑張りたいと思います。
ありがとうございました。
No.27
- 回答日時:
> St3 = Mid(St, Start:=x + 1, Length:=y - x - 1)
> が反転表示されています。
う~ん、セル分割されてるっぽいですねえ。多分 ) が見つからないのかな。
だめ押しで、
Workbooks.OpenText ThisWorkbook.Path & "\" & FILE2, _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1))
としてみても同じでしょうか。
もし差し支えなければ、うまくいかない行を1行でいいので、
Z2PC(****************)PN()SZ0SC()VP(333333,3333333)VH0AN1JN1;
でなくて、形状コードをそのままにした形で書いていただけませんか?
こちらでは「セル分割されてしまう」というのが再現しなくて、調べようがないので。
ありがとうございます。
今回は、エラー発生はありませんでした。
手動で確認したところ、正しく開いておりました。
NG行
Z18PC(SO-T20H11-E )PN()SZ0SC()VP(77000,-700)VH0AN1JN1;
OK行
Z2PC(3216C09E )PN()SZ0SC()VP(-266810,-1280)VH-2500AN1JN1;
念のため何かの時に役立てばと思い載せておきます。
あと、お願いがまた出まして。すみません。
エラーログが出るので、いちいち確認しなくても良いようにならないでしょうか。あと、ログの形式をA列にZ表 B列に検索文字列として出していただけると嬉しいのですが。 一度走らせた結果として100弱のエラーが発生してるみたいなのです。
どうかよろしくお願いいたします。
No.26
- 回答日時:
ログを出力する部分です。
Sheet2に出力します。まず、
'このファイルにデータをコピー
ThisWorkbook.Worksheets("Sheet1").Activate
Set r = Range("A:A")
の下に、
'ログシート準備
Set L = ThisWorkbook.Worksheets("Sheet2")
L.Cells.ClearContents
L.Cells(1, 1) = "実行日時:" & Format(Date, "yyyy/mm/dd") & " " & Format(Now, "hh:mm:ss")
l1 = 3 'ログシートの行番号
を追加してください。
そして、
If MsgBox("NC(" & TMPFILE2 & ")がみつかりません。続行しますか?", _
の直前に、
If l1 = 3 Then
L.Cells(l1, 1) = "エラーが発生したファイル"
l1 = l1 + 1
End If
L.Cells(l1, 1) = "Z表:" & FILE1
L.Cells(l1 + 1, 1) = "NCファイル検索文字列:" & TMPFILE2
l1 = l1 + 3
を追加してください。
最後に、
'データをソート
Application.StatusBar = "データソート中..."
の直前に、
If l1 = 3 Then
L.Cells(l1, 1) = "エラーファイルなし"
End If
を挿入してください。
エラーがあった場合はZ表のファイル名とNCファイルの検索文字列を表示し、エラーがなかった場合は「エラーファイルなし」とSheet2に出力されます。
No.25
- 回答日時:
すみません、書き間違えました。
Workbooks.OpenText ThisWorkbook & "\" & FILE2, DataType:=xlFixedWidth
でなくて、
Workbooks.OpenText ThisWorkbook.Path & "\" & FILE2, DataType:=xlFixedWidth
でした。これで試してみていただけますか?
ログの部分はまた後で回答します。
ありがとうございます。
Workbooks.OpenText ThisWorkbook.Path & "\" & FILE2, DataType:=xlFixedWidth
にした場合でもエラー発生です 実行時エラー5 プロシージャの呼び出し、または引数が不正です。 デバックでは
St3 = Mid(St, Start:=x + 1, Length:=y - x - 1)
が反転表示されています。
No.24
- 回答日時:
> 1つはNCを開いた時に、いくらかのファイルのみ
> 区切られて読み込まれると言う現象がおきます
> Z2PC(****************)PN()SZ0SC()VP(333333,3333333)VH0AN1JN1;
> Z4PC(****************)PN()SZ0SC()VP(333333,3333333)VH0AN1JN1;
不思議ですね。。。
Workbooks.OpenText でファイル名しか指定しないと、デフォルトで DataType := xlDelimited で、区切り文字は特に指定しない限り「なし」となるので区切られるはずはないのですが…。
ためしに、以下のように固定長ファイルの指定をしてファイルをオープンしてみたらどうなりますか?
Workbooks.OpenText ThisWorkbook & "\" & FILE2, DataType:=xlFixedWidth
ちなみにソースを読む限り、これは、「形状コードを探す」というコメントのあるところで、
Z2PC(****************)PN()SZ0SC()VP(333333,3333333)VH0AN1JN1;
でZとPの間の2(これがZno?)がZ表と一致したら、()内の文字列を取りだしてC列に入れている、だけど )P の前でセルが区切られるので形状コードが取得できない、ということで私の理解はあっているでしょうか?、
> 2つめはnc(******)が見つかりません 続行しますかとなった場合OKと
> するとインデックスが有効範囲にありません で停止となり
すみません、これは考慮漏れです。ファイルが見つからなくてオープンしてないのにクローズしようとしていました。
最後の方に、
Loop
End If
'NCファイルを閉じる
Workbooks(FILE2).Close SaveChanges:=False
とあるところの順序を入れ替えて、
Loop
'NCファイルを閉じる
Workbooks(FILE2).Close SaveChanges:=False
End If
としてください。
> もし可能ならエラーログを最後にテキストで表示されると確認できるのですが
> 可能でしょうか?
というのは、NCファイルが見つからなかったときのログでしょうか。
ログを出力するのは可能ですが、エラーログの内容はどのようにしましょうか。
エラーが発生したファイル
Z表:VEAxxxxx-DR.xls
NCファイル検索文字列:"Dxxxxx*S-*DR"
みたいな感じで出力すればよいでしょうか。
それで、エラーログはどこに表示しますか?別途テキストファイルをオープンしてログファイルとして出力することもできるし、マクロのブックの他のシートに書き出すこともできます。(後者の方が当然簡単ですが)
ありがとうございます。
Workbooks.OpenText ThisWorkbook & "\" & FILE2, DataType:=xlFixedWidth
を入れてみましたが、実行時エラー438 オブジェクトはこのプロパティまたはメソッドをサポートしていません と出て怒られました。
Z No や エラー内容は推測された通りです。
エラーログは他シートに書き出す方法でお願いします。
表示は記入していただいた内容で結構です。
よろしくお願いいたします。
No.23
- 回答日時:
> Z表にありNCに無い場合
とありますが、実際のシート構成がわからないので、「NCに無い場合」というのが具体的にどういうNCファイルのどのセルがどうなっている場合かこちらにはわかりません。ので、また勘で答えます。
ロジックから想像すると、
St2 = Mid(St, Start:=x + 1, Length:=y - x - 1)
でエラーが出るということは、
1.Stの値が不正
2.x + 1 の値が不正
3.y - x- 1 の値が不正
のいずれかが考えられます。
Stは、
St = s.Cells(m, 1)
で定義していますが、このループの条件が、
Do Until s.Cells(m, 1) = "" Or z = 1
となっているので、Stが空文字列ということはあり得ません。
一方、x と y の値は直前の
x = InStr(St, "Z")
y = InStr(St, "P")
から持ってきているので、エラーの原因として
Stが空文字列でないのに、"Z"のあるいは"P"の文字がない。もしくは、"P"が"Z"より前にある。
と考えられます。
「Z表にありNCに無い場合」
というのは、そういうことでしょうか?
> 無い場合は強制的に"NG"か何かを書けるようにしていただけると
> ありがたいですが・・・・空白のままでもいいです
えと、これはMsgBoxで「Z=XXXがNCファイルにありません。続行しますか?」といちいちダイアログを出すのでなく、
r.Cells(n, 3) = "NG"
というようにして、そのまま続行させる、ということでしょうか。
一応、そういうことだと解釈して、手直しをしてみました。
まず、以下の範囲
St2 = Mid(St, Start:=x + 1, Length:=y - x - 1)
If Trim(St2) = Trim(r.Cells(n, 1)) Then
x = InStr(St, "(")
y = InStr(St, ")")
z = 1
St3 = Mid(St, Start:=x + 1, Length:=y - x - 1)
r.Cells(n, 3) = St3
End If
この部分を以下のようにIf~Thenで囲みます。
If x <> 0 And y <> 0 Then
St2 = Mid(St, Start:=x + 1, Length:=y - x - 1)
If Trim(St2) = Trim(r.Cells(n, 1)) Then
x = InStr(St, "(")
y = InStr(St, ")")
z = 1
St3 = Mid(St, Start:=x + 1, Length:=y - x - 1)
r.Cells(n, 3) = St3
End If
End If
そして、その下の
If MsgBox("Z=" & r.Cells(n, 1) & "がNCファイル(" & FILE2 & ")に見つかりません" & _
vbCrLf & "続行しますか?", vbYesNo, "NCファイルエラー") = vbNo Then
Workbooks(FILE2).Close SaveChanges:=False
MsgBox ("処理を中断しました。")
Exit Sub
を全部カットして、
r.Cells(n, 3) = "NG"
に置きかえます。
以上を修正して試していただけますか?
この回答への補足
お世話になっています。
現状2つほどありまして。
1つはNCを開いた時に、いくらかのファイルのみ 区切られて読み込まれると言う現象がおきます
Z2PC(****************)PN()SZ0SC()VP(333333,3333333)VH0AN1JN1;
Z4PC(****************)PN()SZ0SC()VP(333333,3333333)VH0AN1JN1;
の様に並んでいるのですが )Pの前部分で区切られるのです。
一応回避するためWorkbooks.OpenText Filename:=ThisWorkbook.Path & "\" & FILE2, DataType:=xlDelimited, semicolon:=True
として最後のセミコロンで区切るにしました。結果としてはOKなのですがまだ異なる場所で区切られているみたいです。
フォーマットはOKの物もNGの物もテキスト上では同じにしか見えません。
2つめはnc(******)が見つかりません 続行しますかとなった場合OKとするとインデックスが有効範囲にありません で停止となり
'NCファイルを閉じる
Workbooks(FILE2).Close SaveChanges:=False
が反転しています。その次のnextまで動かせば 処理は続行されます。
ファイル自体は本当に存在しない場合とファイル名が条件に一致しないのいずれかです。もし可能ならエラーログを最後にテキストで表示されると確認できるのですが 可能でしょうか?
どうかよろしくお願いします
おはようございます。 ありがとうございます。
凄いです。エラーも回避され問題なく動作し結果も1つ1つ行った物と一緒になりました。現在最終確認として多くのファイルの処理を実行しています。結果をまた報告させていただきます。
No.22
- 回答日時:
マクロの中のロジックとなると、実際のデータシートがないので、半分勘で答えます。
> 2枚目を開けに行ったときにエラー
> If Trim(s.Cells(n, Zno(m) + 2)) <> "" Then
> で止まります。
は、mを初期化してないからだと思います。
その前の
Do Until m = t - 1
の上に、
m = 0
を入れればいいかと思います。
そして
> それと、Z表にありNCに無い場合先にエラーで停止します
これも同じ理由かと思います。先のループでmが初期化されてないので、2回目のループで、
r.Cells(p, 1) = s.Cells(n, Zno(m)) 'Zno
のmに狂いが出て、間違ったセルの値がセットされてしまうのだと思います。
とりあえず、上記の m = 0 を入れて試していただけますか?
この回答への補足
ありがとうございます 早速実施しました。結果として 問題の無いファイルでは複数まとめて処理してもエラー発生はありませんでした。
しかし、Z表にありNCに無い場合では同じようにエラー発生にて停止しました。実行時エラー5
プロシージャの呼び出し または引数が不正です
St2 = Mid(St, Start:=x + 1, Length:=y - x - 1)
無い場合は強制的に"NG"か何かを書けるようにしていただけるとありがたいですが・・・・空白のままでもいいです。
No.21
- 回答日時:
NCファイルのファイル名はもうちょっとややこしかったのですね。
ただ、最終的なファイル名の判断基準が、> 4 ファイルの判断基準としてDから"-"の2つ前までが同じでなおかつ最後のDR,SRが一致する事が必要となります
> Z表のファイル名の最後がDRの場合は"-"の前がSとなり SRの場合はRとなります
で絞り込めるのなら、途中をワイルドカード(*)で指定することによってファイル名を取得できるかと思います。
まず、
FILE2 = "D" & Mid(FILE1, 4, InStr(1, FILE1, "-") - 4) & _
Mid(FILE1, InStr(1, FILE1, "-") + 1, 2)
の部分を、
DR_or_SR = Mid(FILE1, InStr(1, FILE1, "-") + 1, 2)
S_or_R = IIf(DR_or_SR = "DR", "S", "R")
TMPFILE2 = "D" & Mid(FILE1, 4, InStr(1, FILE1, "-") - 4) & _
"*" & S_or_R & "-*" & DR_or_SR
FILE2 = Dir(ThisWorkbook.Path & "\" & TMPFILE2)
に差し替えて、その次の
'NCデータを探す
If Dir(ThisWorkbook.Path & "\" & FILE2) = "" Then
If MsgBox("NC(" & FILE2 & ")がみつかりません。続行しますか?", _
の部分を、
If FILE2 = "" Then
If MsgBox("NC(" & TMPFILE2 & ")がみつかりません。続行しますか?", _
に変更してみてください。
この回答への補足
お世話になりありがとうございます。あともう少しのような気がしてきました。もうしばらくのお付き合いをお願いいたします。
先ほどの変更で、基本動作はOKと思います。NC 1ファイル Z表1ファイルにてテストした結果は 前のマクロと同じ結果となりました。
そのまま、ループでそれぞれ2つにした時にエラーが発生しました。
2枚目を開けに行ったときにエラー
If Trim(s.Cells(n, Zno(m) + 2)) <> "" Then
で止まります。
それと、Z表にありNCに無い場合先にエラーで停止します
よろしくお願いします。
St2 = Mid(St, Start:=x + 1, Length:=y - x - 1)
無理やり次のステップまで持っていくとメッセージが出てNCに無いよと言ってくれます(そのときの内容は正しい)そのまま走らせると次のループでもエラーとなります。その時は両ファイルには在るのに。ncに無いよ 表示が出現します。
No.20
- 回答日時:
すみません、目論見を誤りました。
せめてダミーファイルを用意して少し処理を流すべきでした。
先ほど修正をお願いした、
Set s = Workbooks(FILE1).Worksheets(1).Range("A1:A3000")
Set s = Workbooks(FILE2).Worksheets(1).Range("A1:A3000")
は、
Set s = Range("A1:A3000")
に戻してください。
そして、最初のSet文の3行上にある
FILE1 = .FoundFiles(j)
を、
FILE1 = Dir(.FoundFiles(j))
に変更してください。
まだまだ不具合は出るかもしれませんが、とりあえず上記を修正して試していただけますか?
この回答への補足
ありがとうございます。遅くなり申し訳ありません
Z表の写しを行う部分までは、問題なく動作しているように思います。(元ファイルを動かした時と同じ状態)次のファイルを探しに行ったときにファイル名が違うため、「NCファイルエラー」となります。
'NCファイル名をZ表のファイル名から求める
FILE2 = "D" & Mid(FILE1, 4, InStr(1, FILE1, "-") - 4) & _
Mid(FILE1, InStr(1, FILE1, "-") + 1, 2)
この時に作成されたファイルの名称が(D******SR)で存在しているファイル名が(D*******-*-SR)という名称のファイルです。
一致する条件を自分なりに考えた結果をまとめますとFILE2の名称として
1 Dのあと5桁の数字はFILE1と一致します
2 D12345のあと2~3桁がアルファベットになっており2桁の場合は1桁目がバージョンになり3桁の場合は2桁目までがバージョンとなります
3 D******A-*-SRのため DからA-までの間は一致し AもしくはSの場合は最後がDR となりRもしくはBの場合はSRとなっています。
4 ファイルの判断基準としてDから"-"の2つ前までが同じでなおかつ最後のDR,SRが一致する事が必要となります
Z表のファイル名の最後がDRの場合は"-"の前がSとなり SRの場合はRとなります
色々書いてわけが分からないかも知れませんが、なにとぞよろしくお願いします。
No.19
- 回答日時:
> 次のSet s = Range("A1:A3000")で止まります。
> ウオッチでは値が対象範囲外 型はemptyです
どうやら work.xls にコピーして開き直すところを省略した副作用が出てしまったようです。
Set s = Workbooks(FILE1).Worksheets(1).Range("A1:A3000")
に変更してみてください。
同様にNCファイルを開いたあとも、
s = Range("A1:A3000")
があるので、そこも
Set s = Workbooks(FILE2).Worksheets(1).Range("A1:A3000")
にしていただけますか?
> ただ、もともとのBOOKのシート1にボタンが設置してあり
> それを押した時のエラーは400だけ出て停止します。
すみません、ここの「エラーは400だけ出て停止」の意味がよくわかりません。
・エラーの数が400個出るのでしょうか。それとも「400」という番号のエラーが出るのでしょうか。
・エラーメッセージは正確には何と出てますか?
・あと、「停止」というのはマクロの特定の行が黄色くなって止まった状態ですか?その場合、どの行で止まったのでしょうか。
以上を補足願えますか?
> 今回頂いたものを新しく起こしたBOOKの
> 標準モジュールに貼り付け場合はk=0の部分で止まりました。
いろいろな方法で試されているようですが、
・元のマクロファイルのThisWorkbookにマクロを記述した場合、マクロを手動で実行した場合
→ Set s = Range("A1:A3000") で止まる
・元のマクロファイルのThisWorkbookにマクロを記述した場合、マクロをボタンから実行すると、
→ 「エラーは400だけ出て停止」の状態になる
・新しく起こしたBOOKの標準モジュールに貼り付けた場合は
→ k=0の部分で止まる。
ということですよね。
k=0の部分で止まるのは、多分Option Explicitが設定されているので、Dimでkが宣言されていないのでエラーになるのでしょう。一番上にOption Explicitと書かれていたら削除してください。
それで、マクロを見た限り、標準モジュールに書いてもThisWorkbookに書いてもいいような気がするのですが、もともとThisWorkbookにあって正常に動いていたのだったら、そこに書いた方がいいかもしれませんね。(普通は標準モジュールに作りますが)
> 左側にあるプロジェクトウインドウ?にはfuncres(FUNCRES.xls)というものが
それはエクセルの「分析ツール」アドオンを追加したときにできるモジュールです。分析ツールの機能をマクロで使用してないのであれば、特に気にする必要はありません。
この回答への補足
ありがとうございます。
Set s = Range("A1:A3000")をSet s = Workbooks(FILE1).Worksheets(1).Range("A1:A3000")に変更しましたが 同じく実行時エラーが発生し同じメッセージで止まります。
Workbooks(FILE1)をウォッチしますと<インデックスが有効範囲にありません。>と出ています。
手動で動かした時ですが正確にはSet s = Range("A1:A3000")が反転表示しているわけではなく f8で1つずつ動かした時に先ほどの位置まで行った時にエラー発生となります。何処かが反転表示していることはありません。
400のエラーの件ですが、ボタンを押した後 メッセージウインドウが出て400と出ています赤丸の×がが付いた状態です。OK ヘルプのボタンが出ます ヘルプ押してもVBのヘルプウインドウが開くだけで何も表示されません。
つたない内容を理解していただきありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/03/31 12:46
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- 画像編集・動画編集・音楽編集 mp3の音楽ファイルの「アルバム」名を一括入力する方法 6 2023/05/08 14:58
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) フォルダ階層が深いファイルの拡張子の一括変換 2 2022/12/23 18:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBでファイルが開かれているか...
-
Returnに対するGoSubがありません
-
NAS上のファイルの使用中が解除...
-
「パス名が無効です」の発生原因
-
batファイルでレジストリキーの...
-
エクセル VBA dll 読み込...
-
fgets関数のEOFの扱い方について
-
アクセスでイベントのロジック...
-
DisplayAlertsブロパティで ”実...
-
VB実行時エラー75:「パス名が...
-
アクセスのクエリでコンパイル...
-
ファイルクローズ(fclose)でエ...
-
VB6 Dir関数で52エラー発生
-
PowerShellを使って関連付けら...
-
Access2013にてドラッグ&ドロ...
-
エラー:インクルードファイル ...
-
FTPの送信結果を検知したい
-
ExcelVBAで既に開いてるwordを...
-
【COBOL】read文でエラー
-
gccを行ってもexeファイルが生...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
gccを行ってもexeファイルが生...
-
VBでファイルが開かれているか...
-
「パス名が無効です」の発生原因
-
batファイルでレジストリキーの...
-
Returnに対するGoSubがありません
-
VBから参照できないCのDLLを使...
-
PowerShellを使って関連付けら...
-
アクセスのクエリでコンパイル...
-
VB6 Dir関数で52エラー発生
-
FTPの送信結果を検知したい
-
NAS上のファイルの使用中が解除...
-
VBA ExecuteExcel4Macro 型が一...
-
access テキストボックスの値取得
-
EXCELのVBAでWORDが開いてある...
-
すでにファイルが開かれている...
-
EXCELVBAでONEDRIVE上への保管...
-
Excelファイルのマクロによる排...
-
OUTLOOK VBA 指定フォルダ内の...
-
エクセルマクロでエラーの原因...
-
Adobeのプレミアプロの書き出し...
おすすめ情報