Доброй ночи.
Подскажите, пож-та и дайте спокойно заснуть :),
как мне пересохранить открываемый макросом dbf файл в формат xls используя при этом путь для сохранения, находящийся в ячейке книги, с которого запустили макрос.
Как нужно исправить код чтобы обратиться к книге с макросом?
| Код |
|---|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Sub Пересохранение()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open [F1]
ThisWorkbook.SaveAs Filename:=[C1], _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close False
Application.DisplayAlerts = True
End Sub
|
|
| Код |
|---|
1 | Если вместо ThisWorkbook использовать ActiveWorkbook, то не сохраняет.
|
|
| Код |
|---|
1 | Вместо ThisWorkbook.SaveAs Filename:=[C1], _ было
|
|
| Код |
|---|
1 | ActiveWorkbook.SaveAs Filename:="E:\1\fstld2_4.xls", _
|
|
