Мяу! Давненько не пользовался, и то-ли забыл, то-ли не знал... Диалог в окне не показывает файлы, как при вызове из Excel. C фильтром дружить не хочет. Как вывести список файлов? [vba]
Код
With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = ThisWorkbook.FullName 'ThisWorkbook.Path & "\" ' .Filters.Clear ' .Filters.Add "Файлы ", "*.*" .Show If .SelectedItems.Count = 0 Then fName = Empty ': Exit Sub Else fName = .SelectedItems(1) End If End With
[/vba]
Мяу! Давненько не пользовался, и то-ли забыл, то-ли не знал... Диалог в окне не показывает файлы, как при вызове из Excel. C фильтром дружить не хочет. Как вывести список файлов? [vba]
Код
With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = ThisWorkbook.FullName 'ThisWorkbook.Path & "\" ' .Filters.Clear ' .Filters.Add "Файлы ", "*.*" .Show If .SelectedItems.Count = 0 Then fName = Empty ': Exit Sub Else fName = .SelectedItems(1) End If End With
Привет, ребята! У меня в заначке завалялось несколько примерчиков:
[vba]
Код
Private Sub FileSaveAs1() Dim FileName: FileName = Application.GetSaveAsFilename If VarType(FileName) = vbBoolean Then Exit Sub ' если нажали "Отмена", то FileName = False MsgBox FileName 'ActiveWorkbook.SaveAs FileName:=FileName End Sub
Private Sub FileSaveAs2() With Application.FileDialog(msoFileDialogFilePicker) .InitialFileName = ActiveWorkbook.Name .Title = "Title": .ButtonName = "ButtonName": .InitialView = msoFileDialogViewLargeIcons If .Show = 0 Then Exit Sub ' если нажали "Отмена", то .Show = 0 On Error Resume Next MsgBox .SelectedItems(1) 'ActiveWorkbook.SaveAs FileName:=.SelectedItems(1) End With End Sub Private Sub FileSaveAs3() With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = ActiveWorkbook.Name .Title = "Title": .ButtonName = "ButtonName": .InitialView = msoFileDialogViewLargeIcons If .Show = 0 Then Exit Sub ' если нажали "Отмена", то .Show = 0 Application.DisplayAlerts = False ActiveWorkbook.SaveAs FileName:=.SelectedItems(1) Application.DisplayAlerts = True End With End Sub
[/vba]
Привет, ребята! У меня в заначке завалялось несколько примерчиков:
[vba]
Код
Private Sub FileSaveAs1() Dim FileName: FileName = Application.GetSaveAsFilename If VarType(FileName) = vbBoolean Then Exit Sub ' если нажали "Отмена", то FileName = False MsgBox FileName 'ActiveWorkbook.SaveAs FileName:=FileName End Sub
Private Sub FileSaveAs2() With Application.FileDialog(msoFileDialogFilePicker) .InitialFileName = ActiveWorkbook.Name .Title = "Title": .ButtonName = "ButtonName": .InitialView = msoFileDialogViewLargeIcons If .Show = 0 Then Exit Sub ' если нажали "Отмена", то .Show = 0 On Error Resume Next MsgBox .SelectedItems(1) 'ActiveWorkbook.SaveAs FileName:=.SelectedItems(1) End With End Sub Private Sub FileSaveAs3() With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = ActiveWorkbook.Name .Title = "Title": .ButtonName = "ButtonName": .InitialView = msoFileDialogViewLargeIcons If .Show = 0 Then Exit Sub ' если нажали "Отмена", то .Show = 0 Application.DisplayAlerts = False ActiveWorkbook.SaveAs FileName:=.SelectedItems(1) Application.DisplayAlerts = True End With End Sub
У меня, оказывается, эти диалоги msoFileDialogFilePicker и msoFileDialogSaveAs тоже ни файлы не показывают, ни комбобокс с фильтрами типов файлов не выкидывают Прямо как будто это не выбор файлов, а выбор папок вызывается. В отличие от, зараза, ActiveWorkbook.SaveAs
У меня, оказывается, эти диалоги msoFileDialogFilePicker и msoFileDialogSaveAs тоже ни файлы не показывают, ни комбобокс с фильтрами типов файлов не выкидывают Прямо как будто это не выбор файлов, а выбор папок вызывается. В отличие от, зараза, ActiveWorkbook.SaveAsAlex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Четверг, 22.05.2014, 14:31
Андрей, они то работают, а то вдруг не работают! У меня только что вдруг заработали оба, а потом оба же и перестали. При очередном подходе к снаряду msoFileDialogSaveAs опять заработал, а msoFileDialogFilePicker - нет. Чушь какая-то.
Андрей, они то работают, а то вдруг не работают! У меня только что вдруг заработали оба, а потом оба же и перестали. При очередном подходе к снаряду msoFileDialogSaveAs опять заработал, а msoFileDialogFilePicker - нет. Чушь какая-то.Alex_ST