Всем привет! Вроде, знаю как, было похожее, но не понимаю, почему не происходит выполнение процедуры. Вот мой кот
[vba]
Код
Sub Dailyreport() Dim wb_ As Workbook Application.ScreenUpdating = False fp_ = "\\Вася\Петя\Катя\1\" fn_ = Dir(fp_ & "*.xls*", vbNormal) On Error Resume Next Do While fn_ <> "" Set wb_ = GetObject(fp_ & fn_) With wb_.Sheets("Sheet1") Call luboi ' здесь не понимаю, почему процедура запускается на листе, из которого я запускаю процедуру. А не в файлах той директории, которую я указываю. wb_.Close False fn_ = Dir() Loop End Sub
[/vba]
Еще момент, документ, на котором должен запускаться код с 97-2003 года (динозавр какой-то) и выгружается из 1с7 в виде, где нет листа. То есть, если "залезть в vba " то он там есть, как лист1(sheet1) Но в самой книге не видно. Что за ересь...
Подозреваю, что метод не тот, типа... GetObject а мне просто нужно Open Не знаю, прошу подсказать
Всем привет! Вроде, знаю как, было похожее, но не понимаю, почему не происходит выполнение процедуры. Вот мой кот
[vba]
Код
Sub Dailyreport() Dim wb_ As Workbook Application.ScreenUpdating = False fp_ = "\\Вася\Петя\Катя\1\" fn_ = Dir(fp_ & "*.xls*", vbNormal) On Error Resume Next Do While fn_ <> "" Set wb_ = GetObject(fp_ & fn_) With wb_.Sheets("Sheet1") Call luboi ' здесь не понимаю, почему процедура запускается на листе, из которого я запускаю процедуру. А не в файлах той директории, которую я указываю. wb_.Close False fn_ = Dir() Loop End Sub
[/vba]
Еще момент, документ, на котором должен запускаться код с 97-2003 года (динозавр какой-то) и выгружается из 1с7 в виде, где нет листа. То есть, если "залезть в vba " то он там есть, как лист1(sheet1) Но в самой книге не видно. Что за ересь...
Подозреваю, что метод не тот, типа... GetObject а мне просто нужно Open Не знаю, прошу подсказатьant6729
Сообщение отредактировал ant6729 - Понедельник, 12.02.2018, 18:53
Dim wb As Workbook Dim myPath As String Dim myFile As String Dim myExtension As String Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual
Постоянно открывает и закрывает? файлы из директории...не сохраняя с результатами... хотя же вроде... [vba]
Код
wb.Close SaveChanges:=True
[/vba] Подскажите, пожалуйста, как.. дожать...
Спасибо) _Igor_61, Pelena!
Вообщем)
Подобрался я близко, но
[vba]
Код
Sub hhh ()
Dim wb As Workbook Dim myPath As String Dim myFile As String Dim myExtension As String Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual
Да, не...цикл все равно опять открывает и выполняет процедуру aaa пока не нажмешь escape
Я не понимаю с[vba]
Код
<> ""
[/vba]
Почему-то по кругу идет...
Вообщем, у меня как всегда...
Заделал я так, с циклом do не понял... А так хоть что-то[vba]
Код
Sub AttachFile_test() Filenames = GetFilePath() End Sub Function GetFilePath(Optional ByVal Title As String = "", _ Optional ByVal InitialPath As String = "\", _ Optional ByVal FilterDescription As String = "", _ Optional ByVal FilterExtention As String = "*.*") As String On Error Resume Next
Set wb = Workbooks.Open(vrtSelectedItem) wb.Worksheets(1).Select On Error Resume Next Call ob wb.Close SaveChanges:=True
Next vrtSelectedItem
End With End Function
[/vba] Потом надо будет додумать...как время будет
Да, не...цикл все равно опять открывает и выполняет процедуру aaa пока не нажмешь escape
Я не понимаю с[vba]
Код
<> ""
[/vba]
Почему-то по кругу идет...
Вообщем, у меня как всегда...
Заделал я так, с циклом do не понял... А так хоть что-то[vba]
Код
Sub AttachFile_test() Filenames = GetFilePath() End Sub Function GetFilePath(Optional ByVal Title As String = "", _ Optional ByVal InitialPath As String = "\", _ Optional ByVal FilterDescription As String = "", _ Optional ByVal FilterExtention As String = "*.*") As String On Error Resume Next