Note: The other languages of the website are Google-translated. Back to English

Как открыть файл Excel с помощью окна просмотра?

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

Откройте файл Excel с помощью окна просмотра с кодом VBA


Откройте файл Excel с помощью окна просмотра с кодом VBA

Чтобы открыть книгу Excel с помощью окна просмотра, следующий код VBA может помочь вам. Сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, и вставьте следующий макрос в Модули Окно.

Код VBA: откройте книгу Excel с помощью окна просмотра:

Sub OpenNewBox()
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFilePicker)
  With xObjFD
        .AllowMultiSelect = False
        .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsm; *.xlsb", 1
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
    End With
    Workbooks.Open xFilePath
End Sub

3. После вставки кода выше нажмите F5 ключ для запуска этого кода, и Приложения отобразится окно, затем выберите книгу Excel, которую хотите открыть, и нажмите OK кнопку, см. снимок экрана:

doc открыть браузер файлов 1

4. И конкретная книга будет открыта немедленно.


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (1)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Подписка mail_merge()

On Error Resume Next

Dim xStrFile как строка
Dim xFilePath как строка
Dim xFileDlg как FileDialog
Dim xFileDlgItem как вариант
Dim xOutApp как Outlook.Application
Dim xMailOut как Outlook.MailItem
Приложение.ScreenUpdating = False
Dim data_file как рабочая книга

'Set WB_Data_file = Workbooks.Open(ThisWorkbook.Sheets("sheet1").Range("h11").Value)
'WB_Data_file.Activate
'WB_Data_file.Sheets("лист1").Активировать
lastrow = ActiveWorkbook.Sheets("Данные").Range("a" & Rows.Count).End(xlUp).Row
'username1 = Окружающая среда.ИмяПользователя
Для i = 2 В последнюю строку

'******пожалуйста, измените путь к файлам здесь**************************
'C:\Users\BodapatiSarada\Desktop\Maxi project2\проверка файлов
Path = "C:\Users\000H6P744\Desktop\Test project\" & ActiveWorkbook.Sheets("Data").Range("E" & i).Value & ".xlsx" ' нам нужно изменить путь
Установите xOutApp = CreateObject("Outlook.Application")
Установить xMailOut = xOutApp.CreateItem(olMailItem)
'Если xFileDlg.Show = -1 Тогда
С xMailOut
.BodyFormat = олформатричтекст
.To = ActiveWorkbook.Sheets("Данные").Cells(i, 1).Value
.CC = ActiveWorkbook.Sheets("Данные").Cells(i, 2).Value
.Subject = ActiveWorkbook.Sheets("Данные").Cells(i, 3).Value
.body = ActiveWorkbook.Sheets("Данные").Cells(i, 4).Value
.Отображать
.Attachments.Добавить путь
.Отображать
.Послать

Application.Wait (Сейчас() + TimeValue("0:00:01"))
Конец с
ActiveWorkbook.Sheets("Данные").Cells(i, 6).Value = "завершено"

Далее

Application.Wait (Сейчас() + TimeValue("0:00:01"))

Установить xMailOut = Ничего
Установите xOutApp = Ничего
Application.ScreenUpdating = True

MsgBox «Завершено»

End Sub




Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL