Обновление книги и сохранение с помощью VBA

Question

Я создал макрос, который должен обновлять все источники данных. Источниками данных являются серверы sql, и по мере необходимости автоматически подтягивает окно пароля. Если вы уже вводили пароль на сервер с момента последнего открытия Excel, он не запрашивает пароль.

мне удалось получить следующий фрагмент кода вместе, но это не ведет себя, как я ожидал бы

Sub BSR_Refresher() 
'Refreshes the spreadsheet and copies it with today's date 

'Clears all filters 

On Error Resume Next 
ActiveWorkbook.ShowAllData 


'Refreshes Spreadsheet 

    For Each objConnection In ThisWorkbook.Connections 
    'Get current background-refresh value 
    bBackground = objConnection.OLEDBConnection.BackgroundQuery 

    'Temporarily disable background-refresh 
    objConnection.OLEDBConnection.BackgroundQuery = False 

    'Refresh this connection 
    objConnection.Refresh 

    'Set background-refresh value back to original value 
    objConnection.OLEDBConnection.BackgroundQuery = bBackground 
    Next 

'Saves Spreadsheet 

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\\Company.local\AnyDrive\Company\Projects\Project001\Reporting\Report Updates" & Format(Date, ddmmyyyy) & ".xls" 
     End Sub 

Из моего знания VBA этого необходимо сделать следующее:

1) Очистить все фильтры из таблиц

2) запустить обновление данных (списаны из Here)

3) Сохранить в \\Company.local\AnyDrive\Company\Projects\Project001\Reporting\Report Updates (подделка имена, фактическая структура) с именем файла как FileName 08/07/2015 (где FileName - текущее имя файла)

Любые подсказки относительно того, почему это так?

EDIT:

Согласно комментариям, его не сохранения документов, как я требую.

==================

Я изменил код, и это до сих пор не работает. Я перемещал ситуацию, поскольку цикл приводил к повторному удалению одного из листов из-за добавления шага «удалить лист».

Sub BSR_Refresher() 
'Refreshes the spreadsheet and copies it with today's date 

' Gets name to save new workbook as 
    Dim StrSaveName As String 
    Dim StrFolderPath As String 
    StrSaveName = "Report" & Format(Date, ddmmyyyy) & ".xlsx" 
    StrFolderPath = "\\Company.local\anyDrive\Company\Projects\Project-001\Reporting\Status Report Updates\" 
    StrSaveAs = StrFolderPath & StrSaveName 
'Deletes Sheet1, Clears all filters 

Application.DisplayAlerts = False 

    Sheets("Sheet1").Select 
    ActiveWindow.SelectedSheets.Delete 

Application.DisplayAlerts = True 

'Refreshes Spreadsheet 
On Error Resume Next 
ActiveWorkbook.ShowAllData 

    For Each objConnection In ThisWorkbook.Connections 
     'Get current background-refresh value 
     bBackground = objConnection.OLEDBConnection.BackgroundQuery 

     'Temporarily disable background-refresh 
     objConnection.OLEDBConnection.BackgroundQuery = False 

     'Refresh this connection 
     objConnection.Refresh 

     'Set background-refresh value back to original value 
     objConnection.OLEDBConnection.BackgroundQuery = bBackground 
Next 

'Saves Spreadsheet 

ActiveWorkbook.SaveAs Filename:=StrSaveAs 


End Sub 

Моя проблема заключается в том, что он, кажется, не экономить, где оно должно быть: S

Answer 1

ActiveWorkbook.Path & "\\Company.local 

Double «\» знак это ваша проблема. Вырежьте один из них, и вы должны быть в порядке (или, по крайней мере, вы перейдете к какой-либо другой проблеме, если окажется, что есть один позже).

Кроме того, вызов вашего проекта Project-001 укусит вас, если у вас есть несколько проектов, и вы не можете вспомнить, какое число делает что. Лучше всего начинать давать правильные описательные имена прямо в начале.

---

Edit: Вы не определяете формат файла в вашем SaveAs - это может вызвать проблемы. Будет ли такой код помогать?

Sub TestSave() 

    Dim savepath As String 

    savepath = ThisWorkbook.Path & "\\testdir\" & "test.xlsm" 

    ThisWorkbook.SaveAs Filename:=savepath, FileFormat:=52 

End Sub 

51 является XLSX, 52 XLSM, 56 XLS

Answer 2

Вы не можете включать слэш в именах файлов Windows. Вам не хватает речевых меток в функции Format. Изменить этот код:

StrSaveName = "Report" & Format(Date, ddmmyyyy) & ".xlsx" 

To:

StrSaveName = "Report" & Format(Date, "ddmmyyyy") & ".xlsx" 

, чтобы получить дату как 08072015.

Answer 3

OK. Благодаря Яцеку и Чипсам мне удалось справиться с этим VBA.

Похоже, что я отформатировал данные «сохранить как» неправильно. Ниже приведен рабочий макрос, если кто-то еще сталкивается с проблемой :)

Следующий шаг для меня - показать/скрыть, поэтому единственное, что отображается при записи в книгу, - это страница обновления электронной таблицы. Я отправлю код для этого позже в качестве дополнительного комментария.

Sub Spreadsheet_Refresher() 

'Refreshes the spreadsheet and copies it with today's date 

' Gets name to save new workbook as 
    Dim StrSaveName As String 
    Dim StrFolderPath As String 
StrSaveName = "Report" & " " & Format(Date, "dd-mm-yyyy") & ".xlsm" 
    StrFolderPath = "\\Company.local\AnyDrive\Company\Projects\001\Reporting\Status Report Updates\" 
    StrSaveAs = StrFolderPath & StrSaveName 

'Deletes Update Spreadsheet worksheet 

Application.DisplayAlerts = False 

    Sheets("Update Spreadsheet").Select 
    ActiveWindow.SelectedSheets.Delete 

Application.DisplayAlerts = True 

'Refreshes Spreadsheet 

    For Each objConnection In ThisWorkbook.Connections 
    'Get current background-refresh value 
    bBackground = objConnection.OLEDBConnection.BackgroundQuery 

    'Temporarily disable background-refresh 
    objConnection.OLEDBConnection.BackgroundQuery = False 

    'Refresh this connection 
    objConnection.Refresh 

    'Set background-refresh value back to original value 
    objConnection.OLEDBConnection.BackgroundQuery = bBackground 
    Next 




'Saves Spreadsheet 

ActiveWorkbook.SaveAs Filename:=StrSaveAs 


End Sub