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. Клацання Insert > Модуліта вставте наступний макрос у Модулі Вікно

Код 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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (1)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Sub mail_merge()

On Error Resume Next

Dim xStrFile як рядок
Dim xFilePath як рядок
Dim xFileDlg як FileDialog
Dim xFileDlgItem як варіант
Зменшіть xOutApp як Outlook.Application
Змінити xMailOut як Outlook.MailItem
Application.ScreenUpdating = Невірний
Dim data_file як робоча книга

'Встановити WB_Data_file = Workbooks.Open(ThisWorkbook.Sheets("sheet1").Range("h11").Value)
'WB_Data_file.Activate
'WB_Data_file.Sheets("sheet1").Активувати
lastrow = ActiveWorkbook.Sheets("Data ").Range("a" & Rows.Count).End(xlUp).Row
'username1 = Environ.UserName
Для i = 2 До останнього

'****** будь ласка, змініть шлях своїх файлів тут*************************
'C:\Users\BodapatiSarada\Desktop\Maxi project2\перевірка файлів
Шлях = "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 = olFormatRichText
.To = ActiveWorkbook.Sheets("Data").Cells(i, 1).Value
.CC = ActiveWorkbook.Sheets("Data").Cells(i, 2).Value
.Subject = ActiveWorkbook.Sheets("Data").Cells(i, 3).Value
.body = ActiveWorkbook.Sheets("Data").Cells(i, 4).Value
Відображення
.Вкладення.Додати шлях
Відображення
.Надіслати

Application.Wait (Зараз() + TimeValue("0:00:01"))
Кінець з
ActiveWorkbook.Sheets("Data ").Cells(i, 6).Value = "completed"

Далі

Application.Wait (Зараз() + TimeValue("0:00:01"))

Встановіть xMailOut = Нічого
Встановіть xOutApp = Нічого
Application.ScreenUpdating = True

MsgBox "Завершено"

End Sub




There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL