ファイルを開くときにエラーが発生しました

Question

特定のフォルダからファイルのセットを開こうとしています。しかし、ファイルの一つを開こうとしている間、私は添付されたサインインポップアップを取得します。私たちは、誰かが手動でこれを元に戻すにはしたくないので、私はこれを取り除く方法がわからない email signin

、また、私は私がポップアップ

の下に取得ポップアップをキャンセルしています

いいえ/はいをクリックします。実行時エラーが表示されます。

ただし、指定されたファイルが開かれています（Daily Testing Inventoryファイル）。私は限りエクセルVBAに関しては初心者だ

Dim MyFolder As String 
Dim MyFile As String 

Application.ScreenUpdating = False 
Application.EnableEvents = False 


MyFolder = "C:\" 
MyFile = Dir(MyFolder & "\*.xlsx") 
Do While MyFile <> "" 
    Workbooks.Open Filename:=MyFolder & "\" & MyFile 
DoEvents 
Loop 

：

は、ここで私は、これまで達成し、私のマクロです。 （私は十分な評判がないので、すべての画像を投稿することはできません）

Answer 1

は、同様に

• が開かれたワークブックを保持するためにWorkbookオブジェクトを使用するだけでなく

  より良いsynatxをアラートをオフにし

• 行いますあなたのコード
• 各ワークブックを閉じます（以下のコードは保存しないでコードを保存します）
• はその後

コード

Sub recut() 

Dim MyFolder As String 
Dim MyFile As String 
Dim Wb As Workbook 

With Application 
.ScreenUpdating = False 
.EnableEvents = False 
.DisplayAlerts = False 
End With 

MyFolder = "C:\" 
MyFile = Dir(MyFolder & "\*.xlsx") 
Do While MyFile <> "" 
    Set Wb = Workbooks.Open(MyFolder & "\" & MyFile) 
'do code 
Wb.Close False 
MyFile = Dir 
Loop 


With Application 
.ScreenUpdating = True 
.EnableEvents = True 
.DisplayAlerts = True 
End With 

End Sub 

Answer 2

あなたは次のファイル名を読んでいません。したがって、ループは無限大です。 は "DoEvents関数" の上に次の行を追加してください：

MyFile = Dir()