Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выбор документа через диалоговое окно - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор документа через диалоговое окно (Макросы/Sub)
Выбор документа через диалоговое окно
Asretyq Дата: Четверг, 07.12.2017, 15:44 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 76
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день, хочу сделать открытие и редактирование файла через диалоговое окно, редактирование с разрывом страниц проблем никаких нет, а как выбрать именно тот файл через диалоговое окно, который я хочу редактировать, ковырялся, ковырялся так и ничего не получилось
К сообщению приложен файл: _Microsoft_Exce.xlsm(31Kb)
 
Ответить
СообщениеДобрый день, хочу сделать открытие и редактирование файла через диалоговое окно, редактирование с разрывом страниц проблем никаких нет, а как выбрать именно тот файл через диалоговое окно, который я хочу редактировать, ковырялся, ковырялся так и ничего не получилось

Автор - Asretyq
Дата добавления - 07.12.2017 в 15:44
_Boroda_ Дата: Четверг, 07.12.2017, 15:53 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11852
Репутация: 4911 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Посмотрите здесь
http://excelvba.ru/code/GetFileOrFolderPath


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПосмотрите здесь
http://excelvba.ru/code/GetFileOrFolderPath

Автор - _Boroda_
Дата добавления - 07.12.2017 в 15:53
Asretyq Дата: Четверг, 07.12.2017, 15:57 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 76
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, я просмотрел, видимо мозги не варят
сложно слить открытие и редактирование этого же файла [vba]
Код
Set wdApp = CreateObject("Word.Application")
[/vba]
именно здесь у меня возникает путаница, как мне установить файл открытый через диалоголое окно
 
Ответить
Сообщение_Boroda_, я просмотрел, видимо мозги не варят
сложно слить открытие и редактирование этого же файла [vba]
Код
Set wdApp = CreateObject("Word.Application")
[/vba]
именно здесь у меня возникает путаница, как мне установить файл открытый через диалоголое окно

Автор - Asretyq
Дата добавления - 07.12.2017 в 15:57
Asretyq Дата: Четверг, 07.12.2017, 16:38 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 76
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
Dim strFileToOpen As String
strFileToOpen = Application.GetOpenFilename
If strFileToOpen = False Then
MsgBox "No file selected.", vbExclamation, "Sorry!"
Exit Sub
Else
Workbooks.Open Filename:=strFileToOpen
End If
[/vba]
вот не получается открыть файл, не пойму где тут ошибка
 
Ответить
Сообщение[vba]
Код
Dim strFileToOpen As String
strFileToOpen = Application.GetOpenFilename
If strFileToOpen = False Then
MsgBox "No file selected.", vbExclamation, "Sorry!"
Exit Sub
Else
Workbooks.Open Filename:=strFileToOpen
End If
[/vba]
вот не получается открыть файл, не пойму где тут ошибка

Автор - Asretyq
Дата добавления - 07.12.2017 в 16:38
_Boroda_ Дата: Четверг, 07.12.2017, 16:42 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11852
Репутация: 4911 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Второй код по ссылке как раз для Вас
[vba]
Код
Private Sub CommandButton1_Click()
....
Dim wdApp As Object
Dim wdDock As Object
Set wdApp = CreateObject("Word.Application")
Set wdDock = wdApp.Documents.Open(GetFilePath("Выберите файл Word", , "Документы Word", "*.doc"))
....
End Sub

Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath As String = "c:\", _
                     Optional ByVal FilterDescription As String = "Книги Excel", _
                     Optional ByVal FilterExtention As String = "*.xls*") As String
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1): PS = Application.PathSeparator
    End With
End Function
[/vba]
К сообщению приложен файл: 1214880.xlsm(26Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВторой код по ссылке как раз для Вас
[vba]
Код
Private Sub CommandButton1_Click()
....
Dim wdApp As Object
Dim wdDock As Object
Set wdApp = CreateObject("Word.Application")
Set wdDock = wdApp.Documents.Open(GetFilePath("Выберите файл Word", , "Документы Word", "*.doc"))
....
End Sub

Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath As String = "c:\", _
                     Optional ByVal FilterDescription As String = "Книги Excel", _
                     Optional ByVal FilterExtention As String = "*.xls*") As String
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1): PS = Application.PathSeparator
    End With
End Function
[/vba]

Автор - _Boroda_
Дата добавления - 07.12.2017 в 16:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор документа через диалоговое окно (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!