Вход на сайт
Необъяснимая проблема в VBA Excel
390 просмотров
Перейти к просмотру всей ветки
в ответ Murr 09.07.14 02:50
т.е. вы хотите сказать, что у них особый дебаггер?
на моих компьютерах он не реагирует на НЕ проблемы, а у них реагирует?
как раз к строчке, где Dir особых нареканий нет, так как её можно было укрепить и я это сделал:
Dim Str As String
On Error Resume Next
Str = Dir(FullPathName)
If Err Then
'файла нет
IsFilePresent = False
Err.Clear
End
End If
а вот строчку с копированием программа просто не хочет выполнять даже
Dim Source As Excel.Workbook
Dim Target As Excel.Worksheet
Dim SourceL As Excel.Worksheet
Set Target = Workbooks(ClientName).Worksheets(SheetName)
Set Source = Workbooks.Open(MacroPath, , True, , "111")
Set SourceL = Source.Worksheets(SheetName)
SourceL.Copy Before:=Target проблемная строка
на моих компьютерах он не реагирует на НЕ проблемы, а у них реагирует?
как раз к строчке, где Dir особых нареканий нет, так как её можно было укрепить и я это сделал:
Dim Str As String
On Error Resume Next
Str = Dir(FullPathName)
If Err Then
'файла нет
IsFilePresent = False
Err.Clear
End
End If
а вот строчку с копированием программа просто не хочет выполнять даже
Dim Source As Excel.Workbook
Dim Target As Excel.Worksheet
Dim SourceL As Excel.Worksheet
Set Target = Workbooks(ClientName).Worksheets(SheetName)
Set Source = Workbooks.Open(MacroPath, , True, , "111")
Set SourceL = Source.Worksheets(SheetName)
SourceL.Copy Before:=Target проблемная строка
Чем дольше тут живу, тем больше убеждаюсь, что одаренность немцев не знает границ.