VBA BackgroundQuery:=誤った問題ExcelとMacのアップグレード後
Officeを変更してMacを更新しなければならない私はもう機能しないいくつかのVBAを持っています.私はいくつかの問題を解決しましたが、別のものの解決策を見つけることができません.
これは前に完全に機能していたVBAですが、これは「.refresh BackgroundQuery:= false」に誤りを犯します.エラーは「エラー1004はテキストファイルなどを見つけることができません.」
もちろんファイルは存在し、すべてが以前に機能していました.問題を解決するための助けは大いに感謝されます.
これがVBA:
です'CréeleChemin du Fichier8èmeSens AvecDonnéesà輸入者
ref= [a3] .value
MyPath2= mypath1&"/"&ref&".txt"
'Ouvre Le Fichier de Calcul、Se Place enPremièreFeuilleEt Nettoye LesCellulesàLimplir
MyPath3= mypath1&"/"&"calculs_ean14_n.xlsx"
WorkBooks.Open(MyPath3)
シート(1).選択
範囲(「A2:G15」).
を選択Selection.clearContents
範囲( "A2").
を選択'輸入LesDonnéesdu Fichier8èmeSenset Les Place Dans Le Fichier "Calcul"
strfile= "テキスト. "&mypath2
ActiveSheet.QueryTables.addを使用する(Connection:= _
strfile _
、宛先:=範囲( "A2"))
.fieldNames= true
···= false
.filladjacentformulas= false
.refreshonfileOpen= false
.backgroundQuery= true
.refreshStyle= XlInSertDeleteCells
.savepassword= false
.SaveData= true
.adjustColumnWidth= true
.textFilePromptonRefresh= false
.TextFilePlatForm= Xlmacintosh
.textFilestartRow= 2
.TextFileParSetype= XLDelimited
.textFileTextQualifier= XLTextQualifierDoulequote
.TextFileConseCutivedELimiter= false
.TextFileTabDelimiter= true
.TextFileseMicolonDelimiter= false
.TextFileCommadelimiter= false
.TextFileSackerActeLimiter= false
.TextFileColumnDataTypes=アレイ(2,2,2,1,1,2,1,1)
.refresh BackgroundQuery:= false
.uselistObject= false
で終わります'Sauvegarde Le Fichier "Calcul" Avec Les Data Dans LeMêmeDossier Avec Nom= N°De Commande Qui EstIndiquéen Sa Cellule M2
MyPath4= MyPath1&"/"&[M2] .value&".xlsx"
ActiveWorkbook.Saveasファイル名:= _
MyPath4、FileFormat:= _
XlopenXmlWorkbook、CreateBackup:= false
終了SUB
返信リスト(回答:10)
こんにちは
アップデートする前にこのコードはMac用のExcelで働いていましたか?
「すべてが前に機能していました」
あなたは前に何を持っていましたか?
あなたは今何を持っていますか?
応答10# ->にスキップ9 #Bernこんにちはジム、
はい、コードはOfficeを更新してMacを更新する前にMac用のExcelで働いていました.それはまだ古い構成でマシンに取り組んでいます.
プログラムの一部
"strfile="テキスト. "&mypath2
ActiveSheet.QueryTables.add
ETC.
"
MyPath2ファイルの一部をThemyPath3ファイルに正しくインポートしていました
これで ".refresh BackgroundQuery:= false"とエラーメッセージ "エラー1004がテキストファイルなどを見つけることができません."
応答8# ->にスキップ7 #Bernはい、私はそれをコメントアウトしようとしました、そしてそれはうまくいきません.しかし、QueryTables.ADDは実行するためにいくつかの型.refreshを必要とすると思います.
応答7# ->にスキップ5 #JimGordこんにちは
完了まで実行するマクロを録音しました.録音時にBackgroundQueryは含まれていませんので、おそらくテキストファイルでは使用できないコマンドです.
サブマクロ1()
'
'macro1macro
'
'
Application.cutCopyMode= false
withActiveSheet.QueryTables.ADD(接続:= _
"テキスト; /users/jbg/documents/excel/webqueries/v3.txt"、destination :=レンジ(_
"$ A $ 1"))
.name= "v3"
.fieldNames= true
···= false
.filladjacentformulas= false
.preserveformatting= true
.refreshonfileOpen= false
.refreshStyle= XlInSertDeleteCells
.savepassword= false
.SaveData= true
.refreshperiod= false
.textFilePromptonRefresh= false
.TextFilePlatform= 10000
.TextFilestArtRow= 1
.TextFileParSetype= XLDelimited
.textFileTextQualifier= XLTextQualifierDoulequote
.TextFileConseCutivedELimiter= false
.TextFileTabDelimiter= true
.TextFileseMicolonDelimiter= false
.TextFileCommadelimiter= false
.TextFileSackerActeLimiter= false
.textFileColumnDataTypes=配列(1)
.TextFileTrailingMinUsnumbers= true
.refreshbackgroundQuery:= false
終わる
エンドブ
応答5# ->にスキップ4 #Bernこんにちはジム、
助けてくれてありがとう.これはここでいくつかの仕事が行われ、あなたの投稿を考慮に入れた後の状況です.
1-さまざまな試験の後、問題が発生しない前に、.USELISTOBJECT= FALSEの行についてコメントアウトしました.
それから驚いて、コードは時々機能します！
454.txt、4540.txt、45400378.txtという3つのテキストファイルがあり、最初と最後のものはすべて滑らかになります.2番目のものの場合マクロはテキストファイルを見つけることができません！
もちろん(まったくstrfile)というコースをチェックしました.
私は数回テストをしました、そして、すべてが最初と最後のものではありません.
2-それから私はあなたが提案されたように線の背景Queryをコメントアウトしようとしました、そして私はまったく同じ結果を持っています.
3-それから私は他の人と一緒に試してみましたが、時にはそれはそうではないことがありません.
私は損失しています.マイクロソフトからは、以前のversionと変更に互換性のないアップグレードを行い、変更を変更することはありません.
応答4# ->にスキップ6 #JimGordこんにちは
ヘルプメニューのフィードバックオプションを使用して、マイクロソフトへの予期しない変更を報告できます.
その間、4540.txtファイル名が機能しない理由は考えられません.ファイルの名前を変更してみましたか?
応答6# ->にスキップ3 #Bernこんにちはジム、
1-「ヘルプメニューのフィードバック」オプションは、このページではExcelのメニューでもありません.
2-実際に私は進歩しています、次のようにしてください.そしてバックグラウンドで見たファイルは、マイクロソフトがMacへの許可を求めるのに十分にインテリジェントではないので、見つかりません...
3-最初に「StrFile」を開くと、許可要求になる「StrFile」を開くことによって解決し、そうでなければ再びそれを再び閉じると、クエリから読み取ることはできません.
これはすべてのファイルで機能します.
を除く4-これはダウンロードされたファイルレジストリ内にあるレジストリで機能します.たとえば、デスクトップをもう一度別のペースに移動した場合、[既にデスクトップが失敗し、「MyFile.XLSX0」のようなエラーが発生します(最後に0はYes).私には何も意味しません.あなたがいかなるアイデアがあるならば?
5-これらの製品に支払われた法外な価格の観点から、簡単なマクロがもう機能しなくても明らかにリアルテストなしでリリースされた製品を嫌です.
6-AndiさまざまなマクロフォローアップOffice「アップグレード」
で生成されたエラーについてコメントしない助けてくれてありがとう、
ベルン
応答3# ->にスキップ2 #JimGordこんにちは
インストールがIT部門によって管理されていない限り、Excelのヘルプメニューにフィードバックオプションがあるはずです.これはこの機能をオフにすることができます.「サポートに連絡してください」と「AppleへのExcelフィードバックの送信」は通常ヘルプメニューに表示されません.
許可要求は、PABPLEのサンドボックス要件によるMac OSから来ています.あなたが権限ダイアログを受け取らなかったならば、Microsoft Excelではなく、Mac OSに問題があります.移動ファイルの場所を移動するAppleの厄介なサンドボックスを呼び出すので、そのようなシナリオを避けてください.
応答2# ->にスキップ1 #Bern[ヘルプ]メニューのフィードバックオプションはありません.
私はファイルの場所を動かしていません:マクロはレパートリー内のファイルを取り出し、同じレジストリ内の別のファイルにその一部をコピーし、同じレジストリ内で最後のものを再度保存してください.それでは、ファイルを開く権限を尋ねることとは別にすべてが機能する必要があります.
しかしマイクロソフトは変更を加えました...テストなしで、または吠えることなく、同様の問題を抱えている他の人々を見てください.深刻ではありません.
そして私はまだ1つのレジストリで機能するこのマクロでまだ立ち往生していますが、レジストリ全体を別のものに転送すると、マクロはもう機能しません.