Как вывести visual basic в excel

Еще по теме:
1. Тема: Выгрузка с форматированием: задать диапазон выгружаемых данных
2. Тема: Пример записи / чтения с Microsoft Excel в VB

Способы передачи данных с Visual Basic в Excel
Источник: MSDN

В данной статье рассматриваются способы передачи данных в Microsoft Excel из приложения Microsoft Visual Basic. В статье также представлены преимущества и недостатки каждого из способов, что позволяет пользователю выбрать наиболее подходящий способ для конкретной ситуации.

Дополнительная информация
Чаще всего для передачи данных в книгу Excel используется программирование объектов (автоматизация). Этот способ обладает наибольшим спектром возможностей для указания местоположения данных в книге Excel, а также обеспечивает возможность форматирования книги и настройки различных параметров во время выполнения. Программирование объектов позволяет использовать для передачи данных несколько подходов:

• Передача данных по одной ячейке
• Передача массива данных в диапазон ячеек
• Передача набора записей ADO в диапазон ячеек с помощью способа CopyFromRecordset
• Создание в листе Excel объекта QueryTable, содержащего результаты запроса по источнику данных ODBC или OLEDB
• Передача данных в буфер обмена с последующей вставкой содержимого буфера обмена в лист Excel

Также существуют способы передачи данных в Excel, не требующие программирования объектов. При работе с серверным приложением рекомендуется освободить клиентов от большого объема обрабатываемых данных. Ниже приведены способы передачи данных, не использующие программирование объектов.

• Передача данных в текстовый файл, использующий запятые или знаки табуляции в качестве разделителей, который Excel впоследствии может разобрать на ячейки листа
• Передача данных на лист Excel с помощью ADO
• Передача данных в Excel с помощью динамического обмена данными (DDE)

В следующих разделах приведены дополнительные сведения о каждом решении.

Примечание. При использовании Microsoft Office Excel 2007 для сохранения книги Excel 2007 можно использовать новый формат файла (XSLX). Для этого найдите следующую строку кода в приведенных ниже примерах:

oBook.SaveAs "C:Book1.xls"

Замените этот код следующей строкой кода:

oBook.SaveAs "C:Book1.xlsx"

Кроме того, база данных «Борей» не входит в состав Office 2007 по умолчанию. Тем не менее базу данных «Борей» можно загрузить с веб-узла русской версии Microsoft Office Online.

Перенос данных по одной ячейке с помощью автоматизации

Автоматизация позволяет передавать данные на лист Excel по одной ячейке:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
 
   'Открыть новую книгу Excel
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
 
   'Добавить данные в ячейки первого листа новой книги
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1").Value = "Last Name"
   oSheet.Range("B1").Value = "First Name"
   oSheet.Range("A1:B1").Font.Bold = True
   oSheet.Range("A2").Value = "Doe"
   oSheet.Range("B2").Value = "John"
 
   'Сохранить книгу и закрыть Excel
   oBook.SaveAs "C:Book1.xls"
   oExcel.Quit

Передача данных по одной ячейке является оптимальным способом передачи небольших объемов данных. Этот способ позволяет помещать данные в любом месте рабочей книги и форматировать ячейки во время выполнения. Однако этот способ не рекомендуется применять при передаче больших объемов данных в книгу Excel. Каждый объект Range, получаемый во время выполнения, вызывает запрос к интерфейсу, поэтому такой способ передачи данных может оказаться очень медленным. Кроме того, в Microsoft Windows 95 и Windows 98 существует ограничение на запросы к интерфейсу, составляющее 64 КБ. При превышении лимита в 64 КБ сервер автоматизации (Excel) может перестать отвечать на запросы или может отображаться сообщение о нехватке памяти. Это ограничение для Windows 95 и Windows 98 рассматривается в следующей статье базы знаний Майкрософт:

216400 Автоматизация COM может привести к зависанию клиентского приложения в Win 95/98 (Эта ссылка может указывать на содержимое полностью или частично на английском языке).

Таким образом, передача данных по одной ячейке допустима только для небольших объемов данных. Для передачи больших объемов данных в Excel следует использовать один из способов, описанных ниже.

Примеры сценариев для автоматизации Excel см. в следующей статье базы знаний Майкрософт:
219151 Использование Visual Basic для автоматизации Microsoft Excel

Передача массива данных в диапазон ячеек листа с помощью программирования объектов

Массив данных можно одновременно передать в диапазон ячеек листа:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
 
   'Открыть новую книгу Excel
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
 
   'Создать массив с 3 столбцами и 100 строками
   Dim DataArray(1 To 100, 1 To 3) As Variant
   Dim r As Integer
   For r = 1 To 100
      DataArray(r, 1) = "ORD" & Format(r, "0000")
      DataArray(r, 2) = Rnd() * 1000
      DataArray(r, 3) = DataArray(r, 2) * 0.7
   Next
 
   'Добавить заголовки в строку 1
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1:C1").Value = Array("Order ID", "Amount", "Tax")
 
   'Передать массив на лист, начиная с ячейки A2
   oSheet.Range("A2").Resize(100, 3).Value = DataArray
   
   'Сохранить книгу и закрыть Excel
   oBook.SaveAs "C:Book1.xls"
   oExcel.Quit

Передача большого объема данных с помощью массива происходит значительно быстрее, чем передача данных по одной ячейке. Обратите внимание на строку из приведенного выше сценария, которая одновременно передает данные в 300 ячеек листа:

   oSheet.Range("A2").Resize(100, 3).Value = DataArray

Эта строка представляет всего два запроса к интерфейсу (один для объекта Range, возвращаемого методом Range, и один для объекта Range, возвращаемого методом Resize). При этом при передаче данных по одной ячейке потребовалось бы 300 запросов к интерфейсу для объектов Range. Поэтому по возможности рекомендуется выполнять массовый перенос данных, чтобы сократить число запросов к интерфейсу.

Перенос набора записей ADO в диапазон листа с помощью автоматизации

В Excel 2000 появился метод CopyFromRecordset, позволяющий переносить наборы данных ADO (или DAO) в диапазон ячеек листа. Приведенный ниже сценарий является примером автоматизации Excel 2000, Excel 2002 или Office Excel 2003 для переноса содержимого таблицы Orders образца базы данных «Борей» с помощью метода CopyFromRecordset.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

   'Создать набор записей из всех записей таблицы Orders
   Dim sNWind As String
   Dim conn As New ADODB.Connection
   Dim rs As ADODB.Recordset
   sNWind = _
      "C:Program FilesMicrosoft OfficeOfficeSamplesNorthwind.mdb"
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      sNWind & ";"
   conn.CursorLocation = adUseClient
   Set rs = conn.Execute("Orders", , adCmdTable)
   
   'Создать новую книгу Excel
   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
   Set oSheet = oBook.Worksheets(1)
   
   'Передать данные в Excel
   oSheet.Range("A1").CopyFromRecordset rs
   
   'Сохранить книгу и закрыть Excel
   oBook.SaveAs "C:Book1.xls"
   oExcel.Quit
   
   'Разорвать соединение
   rs.Close
   conn.Close

Примечание. При использовании версии базы данных «Борей» для Office 2007 необходимо заменить в примере следующую строку кода:

1

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ sNWind & ";"

Замените эту строку кода следующей строкой:

1

conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ sNWind & ";"

В Excel 97 также имеется метод CopyFromRecordset, однако его можно использовать только для набора записей DAO. CopyFromRecordset в Excel 97 не поддерживает ADO.

Дополнительные сведения об использовании ADO и метода CopyFromRecordset см. в следующей статье базы знаний Майкрософт:
246335 Использование программирования объектов для передачи данных из набора записей в Excel
(Эта ссылка может указывать на содержимое полностью или частично на английском языке)

Создание объекта QueryTable с помощью программирования объектов

Объект QueryTable представляет собой таблицу, содержащую данные, возвращенные из внешнего источника. При автоматизации Microsoft Excel для создания объекта QueryTable следует просто указать строку подключения к источнику данных OLEDB или ODBC в строке SQL. Далее Excel генерирует набор записей и вставляет его в указанное местоположение на листе. Использование объекта QueryTables обладает несколькими преимуществами по сравнению с использованием метода CopyFromRecordset:

• Созданием набора записей и его размещением на листе управляет Excel.
• Запрос можно сохранить в объекте QueryTable таким образом, чтобы в дальнейшем его можно было обновить и получить обновленный набор записей.
• При добавлении нового объекта QueryTable к листу можно переместить данные, уже находящиеся в ячейках листа, чтобы свободно разместить новые данные (см. свойство RefreshStyle).

Ниже приводится пример сценария, позволяющего автоматизировать Excel 2000, Excel 2002 или Office Excel 2003 для создания нового объекта QueryTable на листе Excel с данными из базы Northwind:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

   'Создать новую книгу Excel
   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
   Set oSheet = oBook.Worksheets(1)
   
   'Создать объект QueryTable
   Dim sNWind As String
   sNWind = _
      "C:Program FilesMicrosoft OfficeOfficeSamplesNorthwind.mdb"
   Dim oQryTable As Object
   Set oQryTable = oSheet.QueryTables.Add( _
   "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      sNWind & ";", oSheet.Range("A1"), "Select * from Orders")
   oQryTable.RefreshStyle = xlInsertEntireRows
   oQryTable.Refresh False
   
   'Сохранить книгу и закрыть Excel
   oBook.SaveAs "C:Book1.xls"
   oExcel.Quit

Использование буфера обмена

Буфер обмена Windows также может использоваться как механизм передачи данных на лист Excel. Чтобы вставить данные в несколько ячеек листа, можно скопировать строку, в которой столбцы разделены знаками табуляции, а строки – символами возврата каретки. В приведенном ниже сценарии показано, как Visual Basic может использовать буфер обмена для передачи данных в Excel:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

   'Скопировать строку в буфер обмена
   Dim sData As String
   sData = "FirstName" & vbTab & "LastName" & vbTab & "Birthdate" & vbCr _
           & "Bill" & vbTab & "Brown" & vbTab & "2/5/85" & vbCr _
           & "Joe" & vbTab & "Thomas" & vbTab & "1/1/91"
   Clipboard.Clear
 
   Clipboard.SetText sData
   
   'Создать новую книгу Excel
   Dim oExcel As Object
   Dim oBook As Object
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
   
 
   'Вставить данные
   oBook.Worksheets(1).Range("A1").Select
   oBook.Worksheets(1).Paste
   
   'Сохранить книгу и закрыть Excel
   oBook.SaveAs "C:Book1.xls"
   oExcel.Quit

Создание текстового файла с разделителями, который Excel может разобрать на строки и столбцы

Excel может открывать файлы с разделителями-запятыми и знаками табуляции и разбирать данные по ячейкам. Этим можно воспользоваться при необходимости передачи большого объема данных в лист Excel с минимальным использованием автоматизации. Этот подход рекомендуется для приложений типа клиент-сервер, поскольку текстовый файл может генерироваться серверным приложением. Затем текстовый файл можно открыть с помощью клиентского приложения, при необходимости используя автоматизацию.

Ниже приведен сценарий, иллюстрирующий создание текстового файла с разделителями-запятыми из набора записей ADO:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

   'Создать набор записей из всех записей таблицы Orders
   Dim sNWind As String
   Dim conn As New ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim sData As String
   sNWind = _
      "C:Program FilesMicrosoft OfficeOfficeSamplesNorthwind.mdb"
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      sNWind & ";"
   conn.CursorLocation = adUseClient
   Set rs = conn.Execute("Orders", , adCmdTable)
   
   'Сохранить набор записей как файл с символами табуляции в качестве разделителей
   sData = rs.GetString(adClipString, , vbTab, vbCr, vbNullString)
   Open "C:Test.txt" For Output As #1
   Print #1, sData
   Close #1
    
   'Разорвать соединение
   rs.Close
   conn.Close
   
   'Открыть новый текстовый файл в Excel
   Shell "C:Program FilesMicrosoft OfficeOfficeExcel.exe " & _
      Chr(34) & "C:Test.txt" & Chr(34), vbMaximizedFocus

Примечание. При использовании версии базы данных «Борей» для Office 2007 необходимо заменить в примере следующую строку кода:

1
2

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      sNWind & ";"

Замените эту строку кода следующей строкой:

1
2

conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
      sNWind & ";"

Если файл имеет расширение CSV, Excel открывает его без отображения мастера импорта текста и по умолчанию принимает, что в файле используются разделители-запятые. Если же файл имеет расширение TXT, Excel автоматически разбирает его, используя в качестве разделителей знаки табуляции.

В приведенном выше примере запуск Excel осуществлялся с помощью оператора Shell, а имя файла использовалось как аргумент командной строки. А в этом примере автоматизация не использовалась. Однако при желании можно применить минимум автоматизации, чтобы открыть текстовый файл и сохранить его в формате книги Excel:

1
2
3
4
5
6
7
8
9
10
11
12

   'Создать новый экземпляр Excel
   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
   Set oExcel = CreateObject("Excel.Application")
       
   'Открыть текстовый файл
   Set oBook = oExcel.Workbooks.Open("C:Test.txt")
   
   'Сохранить книгу Excel и закрыть Excel
   oBook.SaveAs "C:Book1.xls", xlWorkbookNormal
   oExcel.Quit

Дополнительные сведения об операциях ввода-вывода файлов из приложения Visual Basic см. в следующей статье базы знаний Майкрософт:
172267 RECEDIT.VBP демонстрирует ввод-вывод файлов в Visual Basic recedit.rar
(Эта ссылка может указывать на содержимое полностью или частично на английском языке)

Передача данных на лист Excel с помощью ADO

С помощью Microsoft Jet OLE DB Provider можно добавлять записи в таблицу существующей книги Excel. «Таблицей» в Excel считается диапазон с заданным именем. Первая строка диапазона содержит заголовки (или имена полей), а все последующие строки – записи. Ниже приведен пример создания книги с пустой таблицей MyTable.

Excel 97, Excel 2000 и Excel 2003

1. Откройте новую книгу Excel.
2. Добавьте следующие заголовки в ячейки A1:B1 листа Sheet1:
A1: FirstName B1: LastName
3. Выровняйте ячейку B1 по правому краю.
4. Выделите A1:B1.
5. В меню Вставка выберите Имя, а затем Присвоить. Введите имя MyTable и нажмите кнопку OK.
6. Сохраните новую книгу как C:Book1.xls и закройте Excel.

Чтобы добавить записи в таблицу MyTable с помощью ADO, понадобится сценарий приблизительно следующего вида:

1
2
3
4
5
6
7
8
9

   'Создать новый объект подключения для Book1.xls
   Dim conn As New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=C:Book1.xls;Extended Properties=Excel 8.0;"
   conn.Execute "Insert into MyTable (FirstName, LastName)" & _
      " values ('Bill', 'Brown')"
   conn.Execute "Insert into MyTable (FirstName, LastName)" & _
      " values ('Joe', 'Thomas')"
   conn.Close

Excel 2007

1. В Excel 2007 создайте книгу.
2. Добавьте следующие заголовки в ячейки A1:B1 листа «Лист1»:
A1: FirstName B1: LastName
3. Выровняйте ячейку B1 по правому краю.
4. Выделите диапазон A1:B1.
5. На ленте откройте вкладку Формулы и выберите пункт Определить имя. Введите имя MyTable и нажмите кнопку ОК.
6. Сохраните новую книгу как C:Book1.xlsx и закройте Excel.

Чтобы добавить записи в таблицу MyTable с помощью ADO, используйте код, подобный приведенному ниже.

1
2
3
4
5
6
7
8
9

   'Создание объекта соединения для Book1.xls
   Dim conn As New ADODB.Connection
   conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
      "Data Source=C:Book1.xlsx;Extended Properties=Excel 12.0;"
   conn.Execute "Insert into MyTable (FirstName, LastName)" & _
      " values ('Scott', 'Brown')"
   conn.Execute "Insert into MyTable (FirstName, LastName)" & _
      " values ('Jane', 'Dow')"
   conn.Close

При подобном добавлении записей в таблицу производится форматирование книги. В приведенном выше примере новые поля, добавляемые в столбец B, выравниваются по правому краю. Каждая запись, добавляемая в строку, форматируется так же, как предыдущая.

Обратите внимание на то, что при добавлении в ячейку или ячейки листа запись заменяет любые данные, находившиеся в этих ячейках ранее; другими словами, строки листа не сдвигаются вниз при добавлении новых записей. Это следует иметь в виду при планировании размещения данных на листе.

Примечание. Обновление данных на листе Excel с помощью ADO или DAO невозможно в среде Visual Basic для приложений в Access после установки пакета обновления 2 (SP2) для Office 2003 или обновления для Access 2002, описанного в статье 904018 базы знаний Майкрософт. Однако этот способ можно использовать в среде Visual Basic для приложений в других приложениях Office, например в Word, Excel и Outlook. Дополнительные сведения см. в следующих статьях базы знаний Майкрософт:
904953 Запрещается вносить изменения, добавлять или удалять данные, источником которых являются книги Excel в Office Access 2003 или в Access 2002
904018 Описание обновления для Access 2002: от 18 октября 2005 г.

Дополнительные сведения об использовании ADO для доступа к книгам Excel см. в следующих статьях базы знаний Майкрософт:
195951 Создание запросов и обновление данных Excel с помощью ADO со страниц ASP
(Эта ссылка может указывать на содержимое полностью или частично на английском языке)

Передача данных в Excel с помощью DDE

Наряду с программированием объектов DDE является способом связи с Excel и передачи данных; однако, в противоположность автоматизации и COM, DDE больше не является часто используемым способом связи с другими приложениями и должен использоваться только при отсутствии других решений.

Для передачи данных в Excel с помощью DDE можно воспользоваться одним из следующих способов:

• LinkPoke для вставки данных в указанный диапазон ячеек
  .
• LinkExecute для отправки команд, которые будет выполнять Excel.

В приведенном ниже примере показано, как установить связь DDE с Excel таким образом, чтобы модно было поместить данные в ячейки листа и выполнить команды. В этом примере для успешного установления связи DDE с файлом LinkTopic Excel|MyBook.xls книга с именем MyBook.xls уже должна быть открыта в запущенном экземпляре Excel.

Примечание. При использовании Excel 2007 для сохранения книг можно использовать новый формат файла (XLSX). Обязательно обновите имя файла в приведенном ниже примере кода.

Примечание. В данном примере Text1 представляет элемент управления Text Box формы Visual Basic:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

   'Установить связь DDE с Excel
   Text1.LinkMode = 0
   Text1.LinkTopic = "Excel|MyBook.xls"
   Text1.LinkItem = "R1C1:R2C3"
   Text1.LinkMode = 1
   
   'Вставить текст из Text1 в ячейки R1C1:R2C3 файла MyBook.xls
   Text1.Text = "one" & vbTab & "two" & vbTab & "three" & vbCr & _
                "four" & vbTab & "five" & vbTab & "six"
   Text1.LinkPoke
   
   'Выполнить следующие команды – выбрать ячейку A1 (R1C1) и изменить шрифт
   'format
   Text1.LinkExecute "[SELECT(""R1C1"")]"
   Text1.LinkExecute "[FONT.PROPERTIES(""Times New Roman"",""Bold"",10)]"
   
   'Разорвать связь DDE
   Text1.LinkMode = 0

При использовании метода LinkPoke с Excel необходимо указать диапазон в формате строка-столбец (R1C1) для LinkItem. Если данные вставляются в несколько ячеек, можно использовать строку, в которой столбцы разделены символами табуляции, а строки – символами возврата каретки.

Если метод LinkExecute используется для выполнения команды в Excel, синтаксис команды должен соответствовать языку Excel Macro Language (XLM). Документация по XLM не входит в состав Excel 97 и более поздних версий. Дополнительные сведения о получении документации по XLM см. в следующей статье базы знаний Майкрософт:

143466 Файл Macro97.exe доступен для загрузки. macro97.rar
(Эта ссылка может указывать на содержимое полностью или частично на английском языке)

DDE не является рекомендуемым способом связи с Excel. Программирование объектов предоставляет больше возможностей и обеспечивает лучший доступ к новым функциям Excel.

Все ссылки MSDN по теме:
Автоматизация COM может привести к зависанию клиентского приложения в Win 95/98
Использование Visual Basic для автоматизации Microsoft Excel
Использование программирования объектов для передачи данных из набора записей в Excel
RECEDIT.VBP демонстрирует ввод-вывод файлов в Visual Basic
Запрещается вносить изменения, добавлять или удалять данные, источником которых являются книги Excel в Office Access 2003 или в Access 2002
Описание обновления для Access 2002: от 18 октября 2005 г.
Создание запросов и обновление данных Excel с помощью ADO со страниц ASP (Эта ссылка может указывать на содержимое полностью или частично на английском языке)
Документация по XLM

Способы передачи данных из Visual Basic в Excel

Применимо к: Microsoft Office Excel 2007Microsoft Office Excel 2003Excel 2010

Аннотация

В данной статье рассматриваются способы передачи данных в Microsoft Excel из приложения Microsoft Visual Basic. В статье также представлены преимущества и недостатки каждого из способов, что позволяет пользователю выбрать наиболее подходящий способ для конкретной ситуации.

Дополнительная информация

Чаще всего для передачи данных в книгу Excel используется программирование объектов (автоматизация). Этот способ обладает наибольшим спектром возможностей для указания местоположения данных в книге Excel, а также обеспечивает возможность форматирования книги и настройки различных параметров во время выполнения. Программирование объектов позволяет использовать для передачи данных несколько подходов:

Передача данных по одной ячейке

Передача массива данных в диапазон ячеек

Передача набора записей ADO в диапазон ячеек с помощью способа CopyFromRecordset

Создание в листе Excel объекта QueryTable, содержащего результаты запроса по источнику данных ODBC или OLEDB

Передача данных в буфер обмена с последующей вставкой содержимого буфера обмена в лист Excel

Также существуют способы передачи данных в Excel, не требующие программирования объектов. При работе с серверным приложением рекомендуется освободить клиентов от большого объема обрабатываемых данных. Ниже приведены способы передачи данных, не использующие программирование объектов.

Передача данных в текстовый файл, использующий запятые или знаки табуляции в качестве разделителей, который Excel впоследствии может разобрать на ячейки листа

Передача данных на лист Excel с помощью ADO

Передача данных в Excel с помощью динамического обмена данными (DDE)

В следующих разделах приведены дополнительные сведения о каждом решении.

Примечание. При использовании Microsoft Office Excel 2007 для сохранения книги Excel 2007 можно использовать новый формат файла (XSLX). Для этого найдите следующую строку кода в приведенных ниже примерах:

oBook.SaveAs «C:Book1.xls»

Замените этот код следующей строкой кода:

oBook.SaveAs «C:Book1.xlsx»

Кроме того, база данных «Борей» не входит в состав Office 2007 по умолчанию. Вы можете скачать базу данных «Борей» из Microsoft Office Online.

Для передачи данных между ячейкой используйте службу автоматизации.

С помощью службы автоматизации вы сможете передавать данные на лист по одной ячейке за раз:

Dim oExcel As Object

Dim oBook As Object

Dim oSheet As Object

‘Start a new workbook in Excel

Set oExcel = CreateObject(«Excel.Application»)

Set oBook = oExcel.Workbooks.Add

‘Add data to cells of the first worksheet in the new workbook

Set oSheet = oBook.Worksheets(1)

oSheet.Range(«A1»).Value = «Last Name»

oSheet.Range(«B1»).Value = «First Name»

oSheet.Range(«A1:B1»).Font.Bold = True

oSheet.Range(«A2»).Value = «Doe»

oSheet.Range(«B2»).Value = «John»

‘Save the Workbook and Quit Excel

oBook.SaveAs «C:Book1.xls»

oExcel.Quit

Передача данных по одной ячейке является оптимальным способом передачи небольших объемов данных. Этот способ позволяет помещать данные в любом месте рабочей книги и форматировать ячейки во время выполнения. Однако этот способ не рекомендуется применять при передаче больших объемов данных в книгу Excel. Каждый объект Range, получаемый во время выполнения, вызывает запрос к интерфейсу, поэтому такой способ передачи данных может оказаться очень медленным. Кроме того, в Microsoft Windows 95 и Windows 98 существует ограничение на запросы к интерфейсу, составляющее 64 КБ. При превышении лимита в 64 КБ сервер автоматизации (Excel) может перестать отвечать на запросы или может отображаться сообщение о нехватке памяти.

Таким образом, передача данных по одной ячейке допустима только для небольших объемов данных. Для передачи больших объемов данных в Excel следует использовать один из способов, описанных ниже.

Примеры сценариев для автоматизации Excel см. в следующей статье базы знаний Майкрософт:

219151 Как использовать Visual Basic для автоматизации Microsoft Excel

Использование автоматизации для передачи массива данных на диапазон на листе

Массив данных может передаваться одновременно на диапазон из нескольких ячеек:

Dim oExcel As Object

Dim oBook As Object

Dim oSheet As Object

‘Start a new workbook in Excel

Set oExcel = CreateObject(«Excel.Application»)

Set oBook = oExcel.Workbooks.Add

‘Create an array with 3 columns and 100 rows

Dim DataArray(1 To 100, 1 To 3) As Variant

Dim r As Integer

For r = 1 To 100

DataArray(r, 1) = «ORD» & Format(r, «0000»)

DataArray(r, 2) = Rnd() * 1000

DataArray(r, 3) = DataArray(r, 2) * 0.7

Next

‘Add headers to the worksheet on row 1

Set oSheet = oBook.Worksheets(1)

oSheet.Range(«A1:C1»).Value = Array(«Order ID», «Amount», «Tax»)

‘Transfer the array to the worksheet starting at cell A2

oSheet.Range(«A2»).Resize(100, 3).Value = DataArray

‘Save the Workbook and Quit Excel

oBook.SaveAs «C:Book1.xls»

oExcel.Quit

Передача большого объема данных с помощью массива происходит значительно быстрее, чем передача данных по одной ячейке. Обратите внимание на строку из приведенного выше сценария, которая одновременно передает данные в 300 ячеек листа:

oSheet.Range(«A2»).Resize(100, 3).Value = DataArray

Эта строка представляет всего два запроса к интерфейсу (один для объекта Range, возвращаемого методом Range, и один для объекта Range, возвращаемого методом Resize). При этом при передаче данных по одной ячейке потребовалось бы 300 запросов к интерфейсу для объектов Range. Поэтому передачу данных необходимо по возможности осуществлять с помощью массива, чтобы сократить число запросов к интерфейсу.

Передача набора записей ADO с помощью программирования объектов

В Excel 2000 появился метод CopyFromRecordset, позволяющий передавать наборы данных ADO (или DAO) в диапазон ячеек листа. Приведенный ниже сценарий является примером автоматизации Excel 2000, Excel 2002 или Office Excel 2003 для переноса содержимого таблицы Orders образца базы данных «Борей» с помощью метода CopyFromRecordset.

‘Create a Recordset from all the records in the Orders table

Dim sNWind As String

Dim conn As New ADODB.Connection

Dim rs As ADODB.Recordset

sNWind = _

«C:Program FilesMicrosoft OfficeOfficeSamplesNorthwind.mdb»

conn.Open «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=» & _

sNWind & «;»

conn.CursorLocation = adUseClient

Set rs = conn.Execute(«Orders», , adCmdTable)

‘Create a new workbook in Excel

Dim oExcel As Object

Dim oBook As Object

Dim oSheet As Object

Set oExcel = CreateObject(«Excel.Application»)

Set oBook = oExcel.Workbooks.Add

Set oSheet = oBook.Worksheets(1)

‘Transfer the data to Excel

oSheet.Range(«A1»).CopyFromRecordset rs

‘Save the Workbook and Quit Excel

oBook.SaveAs «C:Book1.xls»

oExcel.Quit

‘Close the connection

rs.Close

conn.Close

Примечание. При использовании версии базы данных «Борей» для Office 2007 необходимо заменить в примере следующую строку кода:

conn.Open «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=» & _ sNWind & «;»

Замените эту строку кода следующей строкой:

conn.Open «Provider=Microsoft.ACE.OLEDB.12.0;Data Source=» & _ sNWind & «;»

В Excel 97 также имеется метод CopyFromRecordset, однако его можно использовать только для набора записей DAO. CopyFromRecordset в Excel 97 не поддерживает ADO.

Дополнительные сведения об использовании ADO и метода CopyFromRecordset см. в следующей статье базы знаний Майкрософт:

246335 Как передавать данные из набора записей ADO в Excel средствами автоматизации

Использование автоматизации для создания объекта QueryTable на листе

Объект QueryTable представляет собой таблицу, созданную на основании данных, возвращенных из внешнего источника данных. При автоматизации Microsoft Excel для создания объекта QueryTable следует просто указать строку подключения к источнику данных OLEDB или ODBC в строке SQL. Далее Excel генерирует набор записей и вставляет его в указанное местоположение на листе. Использование объекта QueryTables обладает несколькими преимуществами по сравнению с использованием метода CopyFromRecordset:

Созданием набора записей и его размещением на листе управляет Excel.

Запрос можно сохранить в объекте QueryTable таким образом, чтобы в дальнейшем его можно было обновить и получить обновленный набор записей.

При добавлении нового объекта QueryTable к листу можно переместить данные, уже находящиеся в ячейках листа, чтобы свободно разместить новые данные (см. свойство RefreshStyle).

Ниже приводится пример сценария, позволяющего автоматизировать Excel 2000, Excel 2002 или Office Excel 2003 для создания нового объекта QueryTable на листе Excel с данными из образца базы данных «Борей».

‘Create a new workbook in Excel

Dim oExcel As Object

Dim oBook As Object

Dim oSheet As Object

Set oExcel = CreateObject(«Excel.Application»)

Set oBook = oExcel.Workbooks.Add

Set oSheet = oBook.Worksheets(1)

‘Create the QueryTable

Dim sNWind As String

sNWind = _

«C:Program FilesMicrosoft OfficeOfficeSamplesNorthwind.mdb»

Dim oQryTable As Object

Set oQryTable = oSheet.QueryTables.Add( _

«OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=» & _

sNWind & «;», oSheet.Range(«A1»), «Select * from Orders»)

oQryTable.RefreshStyle = xlInsertEntireRows

oQryTable.Refresh False

‘Save the Workbook and Quit Excel

oBook.SaveAs «C:Book1.xls»

oExcel.Quit

Использование буфера обмена

Буфер обмена Windows также может использоваться как механизм передачи данных на лист Excel. Чтобы вставить данные в несколько ячеек листа, можно скопировать строку, в которой столбцы разделены знаками табуляции, а строки – символами возврата каретки. В приведенном ниже сценарии показано, как Visual Basic может использовать буфер обмена для передачи данных в Excel:

‘Copy a string to the clipboard

Dim sData As String

sData = «FirstName» & vbTab & «LastName» & vbTab & «Birthdate» & vbCr _

& «Bill» & vbTab & «Brown» & vbTab & «2/5/85» & vbCr _

& «Joe» & vbTab & «Thomas» & vbTab & «1/1/91»

Clipboard.Clear

Clipboard.SetText sData

‘Create a new workbook in Excel

Dim oExcel As Object

Dim oBook As Object

Set oExcel = CreateObject(«Excel.Application»)

Set oBook = oExcel.Workbooks.Add

‘Paste the data

oBook.Worksheets(1).Range(«A1»).Select

oBook.Worksheets(1).Paste

‘Save the Workbook and Quit Excel

oBook.SaveAs «C:Book1.xls»

oExcel.Quit

Создание текстового файла с разделителями, который Excel может разобрать по строкам и столбцам

Excel может открывать файлы с разделителями – знаками табуляции и запятыми – и правильно распределять данные по ячейкам. Этим можно воспользоваться при необходимости передачи большого объема данных в лист Excel с минимальным использованием автоматизации. Этот подход рекомендуется для приложений типа клиент-сервер, поскольку текстовый файл может генерироваться серверным приложением. Затем текстовый файл можно открыть с помощью клиентского приложения, при необходимости используя автоматизацию.

Ниже приведен сценарий, иллюстрирующий создание текстового файла с разделителями-запятыми из набора записей ADO:

‘Create a Recordset from all the records in the Orders table

Dim sNWind As String

Dim conn As New ADODB.Connection

Dim rs As ADODB.Recordset

Dim sData As String

sNWind = _

«C:Program FilesMicrosoft OfficeOfficeSamplesNorthwind.mdb»

conn.Open «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=» & _

sNWind & «;»

conn.CursorLocation = adUseClient

Set rs = conn.Execute(«Orders», , adCmdTable)

‘Save the recordset as a tab-delimited file

sData = rs.GetString(adClipString, , vbTab, vbCr, vbNullString)

Open «C:Test.txt» For Output As #1

Print #1, sData

Close #1

‘Close the connection

rs.Close

conn.Close

‘Open the new text file in Excel

Shell «C:Program FilesMicrosoft OfficeOfficeExcel.exe » & _

Chr(34) & «C:Test.txt» & Chr(34), vbMaximizedFocus

Примечание. При использовании версии базы данных «Борей» для Office 2007 необходимо заменить в примере следующую строку кода:

conn.Open «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=» & _

sNWind & «;»

Замените эту строку кода следующей строкой:

conn.Open «Provider=Microsoft.ACE.OLEDB.12.0;Data Source=» & _

sNWind & «;»

Если файл имеет расширение CSV, Excel открывает его без отображения мастера импорта текста и по умолчанию принимает, что в файле используются разделители-запятые. Если же файл имеет расширение TXT, Excel автоматически разбирает его, используя в качестве разделителей знаки табуляции.

В приведенном выше примере запуск Excel осуществлялся с помощью оператора Shell, а имя файла использовалось как аргумент командной строки. А в этом примере автоматизация не использовалась. Однако при желании можно применить минимум автоматизации, чтобы открыть текстовый файл и сохранить его в формате книги Excel:

‘Create a new instance of Excel

Dim oExcel As Object

Dim oBook As Object

Dim oSheet As Object

Set oExcel = CreateObject(«Excel.Application»)

‘Open the text file

Set oBook = oExcel.Workbooks.Open(«C:Test.txt»)

‘Save as Excel workbook and Quit Excel

oBook.SaveAs «C:Book1.xls», xlWorkbookNormal

oExcel.Quit

Передача данных на лист Excel с помощью ADO

С помощью Microsoft Jet OLE DB Provider можно добавлять записи в таблицу существующей книги Excel. «Таблицей» в Excel считается диапазон с заданным именем. Первая строка диапазона содержит заголовки (или имена полей), а все последующие строки – записи. Ниже приведен пример пошагового создания книги с пустой таблицей

MyTable.

Excel 97, Excel 2000 и Excel 2003

Откройте новую книгу Excel.

Добавьте следующие заголовки в ячейки A1:B1 листа 1:

A1: FirstName B1: LastName

Выровняйте ячейку B1 по правому краю.

Выделите диапазон A1:B1.

В меню Вставка выберите пункт Имя, а затем выберите команду Присвоить. Введите имя MyTable и нажмите кнопку ОК.

Сохраните новую книгу как C:Book1.xls и закройте Excel.

Чтобы добавить записи в таблицу MyTable с помощью ADO, можно воспользоваться примерно следующим сценарием:

‘Create a new connection object for Book1.xls

Dim conn As New ADODB.Connection

conn.Open «Provider=Microsoft.Jet.OLEDB.4.0;» & _

«Data Source=C:Book1.xls;Extended Properties=Excel 8.0;»

conn.Execute «Insert into MyTable (FirstName, LastName)» & _

» values (‘Bill’, ‘Brown’)»

conn.Execute «Insert into MyTable (FirstName, LastName)» & _

» values (‘Joe’, ‘Thomas’)»

conn.Close

Excel 2007

В Excel 2007 создайте книгу.

Добавьте следующие заголовки в ячейки A1:B1 листа 1:

A1: FirstName B1: LastName

Выровняйте ячейку B1 по правому краю.

Выделите диапазон A1:B1.

На ленте откройте вкладку Формулы и выберите элемент Присвоить имя. Введите имя MyTable и нажмите кнопку ОК.

Сохраните новую книгу как C:Book1.xlsx и закройте Excel.

Чтобы добавить записи в таблицу MyTable с помощью ADO, используйте код, подобный приведенному ниже.

‘Create a new connection object for Book1.xls

Dim conn As New ADODB.Connection

conn.Open «Provider=Microsoft.ACE.OLEDB.12.0;» & _

«Data Source=C:Book1.xlsx;Extended Properties=Excel 12.0;»

conn.Execute «Insert into MyTable (FirstName, LastName)» & _

» values (‘Scott’, ‘Brown’)»

conn.Execute «Insert into MyTable (FirstName, LastName)» & _

» values (‘Jane’, ‘Dow’)»

conn.Close

При подобном добавлении записей в таблицу форматирование книги сохраняется. В приведенном выше примере новые поля, добавляемые в столбец B, выравниваются по правому краю. Каждая запись, добавляемая в строку, форматируется так же, как предыдущая.

Обратите внимание на то, что при добавлении в ячейку или ячейки листа запись заменяет любые данные, находившиеся в этих ячейках ранее; другими словами, строки листа не сдвигаются вниз при добавлении новых записей. Это следует иметь в виду при планировании размещения данных на листе.

Примечание. Обновление данных на листе Excel с помощью ADO или DAO невозможно в среде Visual Basic for Application в Access после установки пакета обновлений 2 (SP2) для Office 2003 или обновления для Access 2002, описанного в статье 904018 базы знаний Майкрософт. Однако этот способ можно использовать в среде Visual Basic for Application в других приложениях Office, то есть в Word, Excel и Outlook.

Для получения дополнительной информации щелкните приведенные ниже номера статей базы знаний Майкрософт:

904953 Невозможно вносить изменения, добавлять или удалять данные в таблицах, источником которых являются книги Excel в Office Access 2003 или в Access 2002

904018 Описание обновления для Access 2002: от 18 октября 2005 г.

Дополнительные сведения об использовании ADO для доступа к книгам Excel см. в следующих статьях базы знаний Майкрософт:

195951 Как создать запросы и выполнить обновление данных Excel с помощью ADO со страниц ASP

Использование DDE для передачи данных в Excel

Наряду с программированием объектов, DDE является еще одним способом связи с Excel и передачи данных. Однако, в противоположность программированию объектов и COM, DDE больше не является предпочтительным способом связи с другими приложениями и должен использоваться только при отсутствии других решений.

Для передачи данных в Excel с помощью DDE можно воспользоваться одним из следующих способов:

Используйте метод LinkPoke для вставки данных в указанный диапазон ячейки (ячеек)

-или-

Используйте метод LinkExecute для отправки команд, которые будет выполнять Excel.

В приведенном ниже примере показано, как установить связь DDE с Excel таким образом, чтобы можно было поместить данные в ячейки листа и выполнить команды. В этом примере для успешного установления связи DDE с файлом LinkTopic Excel|MyBook.xls книга с именем MyBook.xls

уже должна быть открыта в запущенном экземпляре Excel.

Примечание. При использовании Excel 2007 для сохранения книг можно использовать новый формат файла (XLSX). Обязательно обновите имя файла в приведенном ниже примере кода.

Примечание. В данном примере Text1 представляет элемент управления Text Box формы Visual Basic:

‘Initiate a DDE communication with Excel

Text1.LinkMode = 0

Text1.LinkTopic = «Excel|MyBook.xls»

Text1.LinkItem = «R1C1:R2C3»

Text1.LinkMode = 1

‘Poke the text in Text1 to the R1C1:R2C3 in MyBook.xls

Text1.Text = «one» & vbTab & «two» & vbTab & «three» & vbCr & _

«four» & vbTab & «five» & vbTab & «six»

Text1.LinkPoke

‘Execute commands to select cell A1 (same as R1C1) and change the font

‘format

Text1.LinkExecute «[SELECT(«»R1C1″»)]»

Text1.LinkExecute «[FONT.PROPERTIES(«»Times New Roman»»,»»Bold»»,10)]»

‘Terminate the DDE communication

Text1.LinkMode = 0

При использовании метода LinkPoke с Excel необходимо указать диапазон в формате строка-столбец (R1C1) для LinkItem. Если данные вставляются в несколько ячеек, можно использовать строку, в которой столбцы разделены символами табуляции, а строки – символами возврата каретки.

Если метод LinkExecute используется для выполнения команды в Excel, синтаксис команды должен соответствовать языку Excel Macro Language (XLM). Документация по XLM не входит в состав Excel 97 и более поздних версий.

DDE не является рекомендуемым способом связи с Excel. Программирование объектов предоставляет больше возможностей и обеспечивает лучший доступ к новым функциям Excel.

Ссылки

Для получения дополнительной информации щелкните приведенный ниже номер статьи базы знаний Майкрософт:

306022 Как выполнить перенос данных в книгу Excel с помощью Visual Basic .NET

Как в Excel 2010 или 2013 вставить и запустить код VBA – руководство для начинающих

​Смотрите также​ _ «C:UsersCDesktopFOLDER» Workbooks.Open​IvanOK​Юрий М​Хоть Жераром Депардье​ все твои сообщения​ этом. Как только​ файл с несовпадающим​зы. кстати, везде,​’ Returns collection​ Ned_Poriv() exl =​а это читали:​

​ по его использованию​Окно​(Sheet);​ Basic, как показано​Application.ScreenUpdating = False​Это краткое пошаговое руководство​ Filename:= _ «C:UsersÍDesktopFOLDERFILENew.xls»​:​: Кирилл, а рекордер​ или психом в​ выискивая в них​ Михаилу потребуется изменить​ именем — нужный​ где возможно, я​ files of folder​

​ CreateObject(«excel.application») exl.Workbooks.Open(Filename:=»C:Documents and​’111 это пароль​ (в приложении) :​Watches​Код более общего характера​ на картинке ниже.​Application.Calculation = xlCalculationManual​ предназначено для начинающих​ on error goto​IvanOK​ упорно пишет ChDir​ белой рубашке с​ «перлы» а ля​ что-то в коде,​

• ​повторюсь: моя функция​ тоже предпочитаю однострочный​
• ​’​ SettingsСемРабочий столExcel.xls») exl.Sheets(«Період2»).Select()​

Вставляем код VBA в книгу Excel

​ на открытие файла,​[ссылка заблокирована по​также очень помогает​ должен быть введён​ Имейте ввиду, что​В самый конец кода,​

1. 1. ​ пользователей и рассказывает​ 0 дальше код​
   2. ​, На горе программист:​​ ))​​ пеной у рта​ nerv? Хочешь быть​
   3. ​ ему придется ковырять​​ абстрагируется от (свой,​​ If.​’ @param {String}​ exl.visible = True​ 11 это пароль​ решению администрации проекта]​ при отладке кода​ в​​ окно Excel остается​​ перед​​ о том, как​​ работы с открытым​
   4. ​ThisWorkbook.Windows.Application.Visible = False​KL​ (в ваших глазах).​ нарциссом — ради​ всю логику, в​ чужой и т.п.).​​Vitalts​​ Path The path​​ exl.Sheets(«71010000»).Select() exl.Cells.Select() exl.Selection.Delete(Shift:=xlUp)​​ на изменеие​S_e_m​

      ​ VBA, так как​Module​ открытым и находится​

      ​End Sub​
​ вставлять код VBA​

      ​ файломно очевидно, что,​ UserForm1.Show​: Юр, ну мало​ Моя точка зрения​ Бога. Растеряешь друзей.​ т.ч. логику получения​

      • ​ Она просто возвращает​:​ to folder​​ exl.Sheets(«Період1»).Select() exl.Cells.Select() exl.Selection.Copy()​​Вы что тоже​: Ребята, подскажите как​​ в нём можно​​;​ позади окна редактора.​​:​​ (Visual Basic for​

        ​ если ошибки при​
​eagl69​

      • ​ ли что на​ останется при мне​​RAN​​ имени файла из​

        ​ список файлов папки.​
​Michael_S​

      ​’ @param {String}​ exl.Sheets(«71010000»).Select() exl.Cells.Select() exl.ActiveSheet.Paste()​ создали файл с​ открывается книга Excel​ увидеть значение, тип​Код для нового объекта​В процессе работы в​Application.ScreenUpdating = True​ Applications) в книгу​ обращении по 1​:​ заборах пишут. Рекордер​Цитата​: Саш, это, конечно​ папки. В моем​ При желании может​, что значит не​ [Filter] The file​

   5. ​ exl.Rows(«1:1»).Select() exl.Range(Selection, Selection.End(xlDown)).Select()​ такими паролями?? плагиат​ 2003 c указанного​ и контекст любого​​ должен быть введён​​ редакторе Visual Basic​Application.Calculation = xlCalculationAutomatic​​ Excel, и как​ пути нет, то​inv.DS​​ еще и Select​(RAN)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Ты откатись чуть​ правильно​ случае это не​​ делать это рекурсивно.​​ хочет? Без кода​​ filter​​ exl.Application.CutCopyMode = False​​ какой-то, деньги автору​ места.​​ отслеживаемого выражения, которое​​ в​ в Excel могут​​Эти строки, как можно​ запускать вставленный макрос​​ как избежать обращения​,​​ обожает​​ назад, и взгляни​

1. ​но вся проблема​​ требуется, т.к. вынесено​​Функцию можно подключить​ я не могу​’ @return {Collection}​ exl.Selection.Sort(Key1:=Range(«E1»), Order1:=xlAscending, Header:=xlGuess,​

Запускаем макрос VBA в Excel

​ пароля??? ))​Наперед СПАСИБО!!!​​ задаст пользователь. Чтобы​​Class Module​​ быть открыты различные​​ понять из их​​ для выполнения различных​​ ко второму пути?​inv.DS​Юрий М​​ на свои коды.​​ в том -​

​ в функцию. Если​ и не вносить​
​ сказать где у​
​ FileList​

​ _ OrderCustom:=1, MatchCase:=False,​

office-guru.ru

Редактор Visual Basic в Excel

​S_e_m​Ципихович Эндрю​ открыть окно​;​ окна. Управление окнами​ содержания, отключают обновление​ задач на этом​спасибо за советы.​, неа ефекто тот​: ))​И переменные из​ что она одна,​

Запуск редактора Visual Basic

​ ему потребуется проверять​ существенных изменений в​ вас ошибка, ибо​’ —————————————-​​ Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal)​​: Так открывается с​: в ВБА так:​​Watches​​Если нужно создать диалоговое​ осуществляется в меню​​ экрана и пересчёт​​ листе.​МатросНаЗебре​ же….​Assassinys​ одной буквы, и​ но для всех​ вложенные каталоги, ему​ основную программу (добавляется​

Окна редактора Visual Basic

​ код замечательно работает.​Private Function GetFileList(ByVal​ ‘oExcel.Workbooks.Add() ‘oExcel.Sheets.Add.Name =​ этими паролями и​Set oExcel =​, нажмите​ окно для взаимодействия​ View, которое находится​ формул рабочей книги​Большинство пользователей не являются​:​

Окно проекта (Project)

​нужно сделать до​​: Собственно меня интересует​​ Iif сплошь и​ разная!​ придется писать новый​ одна строка вызова​ Ни один год​ Path As String,​ ComboBox1.Text End Sub​ без них. Загвоздка​ CreateObject(«Excel.Application») ‘создать объект​Watch Window​ с пользователем, то​ в верхней части​ перед выполнением макроса.​ гуру Microsoft Office.​

• ​If Err <> 0​​ sub workbook_open() иначе​​ как возможно открыть​ рядом, и еще​
• ​Ты откатись чуть​​ алгоритм (перебирать всю​​ функции).​ пользуюсь подобными методами.​ _​

​ End ModuleПосле запуска​ в том, что​​ Microsoft Excel oExcel.Workbooks.Open​​в меню​​ можно использовать​​ окна редактора VBA.​​ После выполнения кода​​ Они могут не​ Then​ ефект полюбому останется….​ форму в документе​ куча всего, что​​ назад, и взгляни​​ логику, вносить изменения,​​Цитата​​Попробуйте вывести название​​Optional ByVal Filter​​ в конце строки​

​ я дальше хочу​ «D:Рабочая папка» &​​View​​Userform​​ Ниже дано описание​​ эти параметры снова​​ знать всех тонкостей​​all L​

• ​ потому что сначала​​ эксель но так​​ ты сейчас критикуешь!​ на свои коды.​ отлаживать и т.п.​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Я уж не​ файла, который пытаетесь​
• ​ As String =​​ 27 выдаёт ошибку​​ выделить какой-то диапазон​ Имя_файла, , ,​​редактора Visual Basic.​​.​​ отдельных окон.​​ включаются. Данный приём​​ работы той или​​: Попробуем. спасибо!​

​ открываеться ексель а​ что бы была​в том то​И переменные из​ всю программу, а​ говорю о размере​ открыть, возможно, лимит​

• ​ «*») As Collection​ —-​ ячеек и копировать​ , «111», «11»​​ Также окно​​Двойной щелчок мышью по​
• ​Окно​ приводит к ускорению​ иной функции, и​Sanja​​ потом он выполняет​​ видна только форма​
• ​ и дело. Я​ одной буквы, и​ не отдельную функцию).​​ кода.​​ исчерпан, и идет​
• ​Static List As​Object variable or With​ их, а мне​​ ‘111 это пароль​​Watches​
• ​ любому объекту в​Project​ выполнения макроса от​ не смогут ответить​​: :?:​​ макрос​

Окно кода (Code)

​ при открытии документа​ сам делал так​ Iif сплошь и​​Если вы предпочитаете​​Качество кода не​​ попытка открыть файл​​ New Collection​ block variable not​ выдает ошибку на:​ на открытие файла,​будет открыто автоматически,​ окне​​открывается в левой​​ 10% до 500%​

​ на вопрос, как​If Err <>​​IvanOK​​ а сам документ​ (писал ужасный, говеный​ рядом, и еще​ закладывать фундамент дома​ измеряется его размером.​ с пустым названием.​

Окно свойств (Properties)

​Static FSO As​​ set.​​Range​ 11 это пароль​ если задать отслеживаемое​Project​ части редактора VBA​ (да, макрос может​ отличается скорость выполнения​ 0 Then PathName​, Вы бредите! Все​ был скрыт или​ код) и не​

Окно отладчика (Immediate)

​ куча всего, что​​ из спичек, я​​ Вообще, не понимаю,​ Не совершенство кода,​ Object​​—​​(«A8:C7»).Select Ощущение, что​​ на изменеие ‘oExcel.Workbooks.Open​​ выражение.​открывает соответствующее окно​​ (показано на картинке​​ работать в 5​ макроса VBA в​ = ChDir(«Y:PublicFolder1») Else​ работает у меня​ свернут?​ хочу, чтобы кто-нибудь​ ты сейчас критикуешь!​ не против, но​ почему форумчан беспокоит​

​ написанного на скорую​​Static Deep As​​Также в 29​​ книга «AIC_SIP» активна​​ «D:Рабочая папка» &​Чтобы задать отслеживаемое выражение,​Code​​ выше). В этом​​ раз быстрее, если​

Окно переменных (Locals)

​ Excel 2010 и​​ PathName = ChDir(«C:UsersCDesktopFOLDER»)​​ остается только 1​​аналитика​​ еще наступал на​​Мне Вася уронил​​ сам стараюсь этого​ размер (не только​ руку :(​ Integer​ строке​ (потому что окрыта),​ Имя_файла, , ,​ нужно:​, предназначенное для ввода​ окне для каждой​ манипуляции над ячейками​ 2013. Многие просто​​ End If Workbooks.Open​​ форма активная, сам​: в модуль «ЭтаКнига»:​

Окно отслеживания (Watches)

​ эти грабли. Это​​ молоток на голову!​​ не делать​ этого) кода, если​Судя по скрину,​Dim SubFolder As​Range​ а Лист1 не​ ,111, 11 ‘111​Выделить выражение в редактируемом​ кода VBA с​​ открытой рабочей книги​​ происходят без лишних​​ используют Excel, как​​ Filename:=PathName & «FILENew.xls»​​ Excel прячется.​​sub workbook_open() application.visible=false​ ж очевидно )​​И что вы​​Цитата​ код написан должным​ так и есть.​

​ Object​Ошибка 1 «System.Data.Range»​

1. ​ активный и не​ это пароль на​
2. ​ коде VBA.​​ клавиатуры. На одном​​ создаётся проект VBA​​ остановок).​​ инструмент для обработки​
3. ​Kuzmich​​inv.DS​​ yourform.show end sub​

​deathogre​ ему сказали?​(Serge_007)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Кстати и скорость​ образом? Подключили, забыли.​ Приведите код​Dim Folder As​ в этом контексте​ хочет с ним​

​ открытие файла, 11​В меню​
​ из приведённых выше​
​ (VBA Project). Проект​

​Сохраняем рабочую книгу, как​

office-guru.ru

Как открыть visual basic через excel в office 2007?

​ данных.​​: Используйте диалоговое окно​

​, ето вы просто​​Assassinys​
​: Здрасьте. Как программно​Ты…, Вася…, неправ!!!!!!!!!​ тоже от длинны​

​ Если хотите по​​Michael_S​ Object​
​ недоступен, так как​ контачить.​
​ это пароль на​Debug​ рисунков показано окно​
​ VBA – это​ книгу Excel с​Предположим, нужно изменить данные​ выбора файла​
​ не замечаете не​: не работает(​ открыть книгу эксель​nerv​
​ не всегда зависит​ прежнему заниматься ручной​: Vitalts, Все, разобрался.​

​Dim File As​​ является «Friend».​Спасибо что отозвались​ изменеие oExcel.Visible =​редактора VBA нажать​

Как в excel открыть visual basic???

​ кода для​​ набор всех объектов​ поддержкой макросов. Для​ на листе Excel​
​Set FD = Application.FileDialog(msoFileDialogFilePicker)​ мощном ПК, а​

​Assassinys​​ и сохранить эту​: об единственной опечатке​зависит от алгоритма,​ обсфукацией, экономить на​ Не туда​ Object​dzug​ (ещё раз)​ True ‘FalseНеужели в​Quick Watch​Module1​ и модулей VBA,​ этого нажмите​
​ определённым образом. Мы​all L​ я говорю делоВ​

​:​​ книгу (объект) в​ я предупредил сразу.​ а не от​
​ каждой букве, пожалуйста.​Set wb = Workbooks.Open(ActiveWorkbook.Path​

Открытие Excel и активация нужного листа

​If FSO Is​​: Посмотрите это:​Ципихович Эндрю​ ВБ не так??​.​
​.​

​ привязанных к текущей​​Ctrl+S​
​ немало погуглили и​: Kuzmich, Sanja, спасибо​ продолжение темы:​Assassinys​ глобальной переменной?​ Это раз. Два,​ кол-ва букв )​Я пишу универсальные​ & «» &​ Nothing Then​Обработка активной книги​: Это решено???????? и​ проверьте, отпишитесь, ОК??​Нажать​По мере ввода кода​ книге. Изначально в​и в окне​ нашли макрос VBA,​ за советы. Начну​Private Sub CommandButton8_Click()​

​, работает.​​Юрий М​ кто-то не знает,​Цитата​ функции, кот. таскаю​ fn)​Set FSO =​ Excel​ ладно …​S_e_m​Add​ VBA в окно​ него входят:​ с предупреждением​ который решает эту​ с предложения Sanja​ Application.Visible = False​Код надо поместить​
​: 1. Открытие нужной​ что от него​(Serge_007)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Мы все тут​
​ (использую) из проекта​впихивал.​ CreateObject(«Scripting.FileSystemObject»)​S_e_m​здесь​: Всё так. Только​.​Code​Объект​Следующие компоненты невозможно сохранить​ задачу. Однако, наше​ (для сохранения «молчаливой»​ End Sub Private​ куда и сказано​ книги запишите макрорекордером​ хочет компилятор при​ хотим размер покороче​ в проект. Мне​Еще раз спасибо.​End If​: Ничего не помогает.​Windows(«AIC_SIP.xls»).Activate ‘активация моего​ я, пока, чайник​Кроме рассмотренных, в меню​, редактор Visual Basic​ЭтаКнига​ в книге без​ знание VBA оставляет​ работы процедуры), если​ Sub CommandButton9_Click() Application.Visible​ -​ — получите готовый​

​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Option Expicit​​ и даже соревнуемся​ это не мешает​nerv​If FSO.FolderExists(Path) Then​ Не получается у​ файла Range(«A1:C3»).Select ‘выбираю​ и совсем недавно​ редактора Visual Basic​ следит за правильностью​(ThisWorkbook), привязанный к​
​ поддержки макросов​ желать лучшего. Вот​

​ не подойдет, то​​ = True End​
​в модуль «Эта книга»​ код.​
​я тут не​
​ в этом постоянно​
​ ) Если вам​: просто вы не​Set Folder =​ меня сортировка. Уже​
​ диапазон ячеек Selection.Copy​ начал изучать язык​ в Excel существует​ ввода, ищет ошибки​ книге Excel;​

​(The following features​​ тут-то и придёт​ окно выбора файла​ SubЛист скрывается а​yourform​2. Dim Wb​ при чем )​ в специально созданном​ нравиться каждый раз​ писали МНОГО кода​​ FSO.GetFolder(Path)​​ кучу сайтов перелазил​ ‘копируюв переди пробуйте​ программирования, а тут​ ещё множество параметров​ в коде и​Объекты​ cannot be saved​
​ на помощь пошаговая​ уж точно поможет.​

​ вот при открытии​​заменить на свое,​ As Workbook Set​
​Цитата​
​ для этого разделе​ переписывать весь код,​Когда перед тобой​For Each File​ — не могу​
​ добавлять oExcel.​ ещё по работе​
​ и команд, используемых​ выделяет код, который​

​Лист​​ in macro-free workbook)​ инструкция, с помощью​
​ вопрос, думаю, закрыт.​ появляется еще какой​
​ например, у меня​ Wb = ActiveWorkbook​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Ты упорно пытаешься​за рекламу 5​ я не против​ 1000+ строк в​ In Folder.Files​ разобраться.​то есть как​ нужно было… Короче​ при создании, выполнении​ требует исправления.​(Sheet), привязанные к​ нажмите​ которой мы сможем​ Спасибо.​ то лист пустой​Userform1​Hugo​
​ доказать всем участникам​Michael_S​Serge_007​ одном только модуле,​If File.Name Like​Michael_S​ Вы здесь обращались:​
​ получилось, но открывает​
​ и отладке кода​В окне​ каждому листу текущей​Нет​ использовать найденный код.​

​Александр Моторин​​all L​Aleksey1404​: Set wb =​ темы​

​: У каждого свои​​: Точно так же​ нет желания разбирать​ Filter Then​: Все, что об​oExcel.Visible = True​ не из всех​
​ VBA.​Properties​ рабочей книги Excel.​(No).​Вставляем код VBA в​: А где находится​: Добрый день,​: Да заработало ,​ Workbooks.Open(filename)​я отстаиваю свою​ понятия «правильности»​ как и формул.​ и додумывать. Хочется​List.Add File​ этом файле известно​ ‘False​ папок. С некоторых​Урок подготовлен для Вас​перечислены свойства объекта,​Самостоятельно в проект можно​Откроется диалоговое окно​ книгу Excel​ сам файл?​Подскажите, можно ли​ я просто имя​deathogre​ точку зрения​Саш, мы уже​ Кстати и скорость​​ просто читать. Максимально​End If​ — он находится​​S_e_m​
​ папок выдаёт ошибку,​ командой сайта office-guru.ru​​ который в момент​​ добавить объекты​Сохранение документа​Запускаем макрос VBA в​Если рядом с​

​ решить такую задачу:​​ формы некорректное выбирал​
​: Мне нужно открыть​Цитата​

​ как-то говорили на​​ тоже от длинны​ быстро читать понятный​Next​ в той же​: Я уже на​ что нету доступа.​

CyberForum.ru

Открыть файл excel. (VBA) (Задача вроде простая, но…)

​Источник: http://www.excelfunctions.net/Visual-Basic-Editor.html​​ создания (не в​Userform​(Save as). В​ Excel​ нужным файлом, то​Работаю с файлом,​Апострофф​ книгу из другой​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>и правда думаешь,​ эту тему; твои​ не всегда зависит​ не двусмысленный код.​For Each SubFolder​ папке, где и​
​ пике восторга​ Если знаете в​

​Перевел: Антон Андронов​​ процессе выполнения программы)​,​

​ выпадающем списке​​В этом примере мы​ ActiveWorkbook.Path поможет​ в котором прописана​: А как обратно​
​ книги​
​ что кому-то интересно​ доводы отчасти верны,​
​Однако ты прав,​
​ "С недавних пор"​ In Folder.SubFolders​
​ основной, и других​Получилось, как Вы​
​ чем проблема, отпишите​Автор: Антон Андронов​
​ выделен в окне​
​Module​
​Тип файла​
​ будем использовать VBA​

​all L​ VBA-процедура, на работе​ открыть файл для​Юрий М​
​ искать все твои​ но не для​ форумчан это очень​
​ однострочный If я​
​Deep = Deep​ файлов в этой​ сказали. Вот так​ пожалуйста. А пока,​

​Виталик александровский​​ проекта. Эти свойства​и​(Save as type)​
​ макрос, который удаляет​: Нет, Александр, не​ и дома.​
​ редактирования (((​
​: И что?​ сообщения выискивая в​
​ всех случаев.​
​ беспокоит​
​ не использую вообще​ + 1​
​ папке нет. И​
​Set oExcel =​ очень благодарен за​: Alt плюс F11​
​ могут быть различными​Class Module​ выбираем​
​ переносы строк из​ с нужным. Спасибо.​
​Процедура эта в​
​Aleksey1404​deathogre​ них "перлы" а​
​Michael_S​Мы все тут​ )​
​GetFileList SubFolder.Path, Mask​ что он -​
​ CreateObject("Excel.Application") 'создать объект​ помощь!!!​
​Gkp090​ в зависимости от​
​. Если Вы посмотрите​Книга Excel с поддержкой​
​ ячеек текущего листа​RAN​
​ процессе работы обращается​: Разве не очевидно?​
​: Объявил глобальную переменную​ ля nerv?​
​: То же не​ хотим размер покороче​
​Цитата​
​Next​
​ эксель. Ни имя​ Microsoft Excel oExcel.Workbooks.Open​
​В принципе разобрался​: VBA​
​ типа выделенного объекта​ на картинку выше,​
​ макросов​
​ Excel.​
​: Не тестировал, но​
​ к еще одному​ Application.Visible = True​
​ в модуле ЭтаКнига​если мне говорят,​
​ работает​
​ и даже соревнуемся​
​(Michael_S)200?'200px':''+(this.scrollHeight+5)+'px');">жалуется на Mask​Deep = Deep​
​ и расширение файла,​
​ "C:Documents and SettingsS_e_mРабочий​ с открытием, но​
​в настройках выставить​ (лист, книга, модуль​
​ то увидите, что​(Excel macro-enabled workbook)​
​Открываем рабочую книгу в​ на правду похоже​
​ файлу (открывает его,​
​Апострофф​
​ Public Главнейшая As​
​ что я не​nerv​​ в этом постоянно​Это та самая​

​ — 1​​ а также имя​​ столAC_SIP222″ & xls​​ тут проблема дальше​ «Показывать вкладку Разработчик​ и другие).​​ в проект VBA​ и нажимаем кнопку​
​ Excel.​Sub Мяу() Dim​ производит определенные действия),​: Может есть какое-то​ Workbookоткрыл книгу в​ прав, я спрашиваю​: Захотелось кнопку «Ok»​ в специально созданном​
​ ошибка, о кот.​End If​ и расположение папки​ ‘открываю книгу 222​

​Private Sub Command1_Click()​​ на ленте»​Окно​ для книги​
​Сохранить​Нажатием​ wb As Workbook​​ который на работе​​ сочетание клавиш, позволяющее​ модуле АктивХ формы​ в чем, а​ нажать​ для этого разделе​
​ я говорил. Замените​
​If Deep =​ не известны.​ oExcel.Visible = True​ Set oExcel =​

​Александр к​​Immediate​​Book1.xlsm​​(Save).​Alt+F11​ Dim pName(), fName$,​ лежит на диске​ открыть файл без​ChDir «\Margo123Тест» Workbooks.Open​ не заведомо соглашаюсь​Там же написано​
​KuklP​ Mask на Filter.​ -1 Then​Возможно? Если возможно​ ‘False oExcel.Range(«B5:E13»).Select ‘выбираю​ CreateObject(«Excel.Application») ‘ñîçäГ*ГІГј îáúåêò​: На вкладке Разработчик​можно отобразить в​добавлен объект​
​Нажимаем​вызываем окно редактора​ i& pName =​

​ Y, дома на​​ отработки макроса(shift не​ Filename:=»\Margo123Тест6.02.2016.xlsm» Set ЭтаКнига.Главнейшая​​Цитата​ «Переменная не определена»​: Еще как измеряется.​​Цитата​
​Set GetFileList =​

​ — как?​​ диапазон ячеек oExcel.Selection.Copy​ Microsoft Excel oExcel.Workbooks.Open​​ щелкните Visual Basic.​ редакторе Visual Basic​Module​Alt+Q​ Visual Basic​ Array(«Y:PublicFolder1», «C:UsersCDesktopFOLDER» fName​ диске С. Имя​ помогает), т.к. у​ = Workbooks(«\Margo123Тест6.02.2016.xlsm»)выдает ошибку​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Растеряешь друзей.​ и даже выделено​ Можно написать на​
​(Vitalts)200?’200px’:»+(this.scrollHeight+5)+’px’);»>В данном случае,​​ List​
​nerv​ ‘копирую oExcel.Workbooks.Open «C:Documents​ «C:111AIC_SIP» & AIC_SIP,​Если Вкладка Разработчик​
​ через меню​​с названием​, чтобы закрыть окно​На панели​ = «хи-хи.xls» On​ файла одинаковое, пути​ меня отображается форма,​
​ на 3 строке,​т.е. если наши​ какая. Что мешает​
​ 10 страниц «правильного»​​ мне караз таки​Set List =​: Получить список файлов​ and SettingsS_e_mРабочий столAC_SIP111″​
​ , , ,​ не отображена:​View​Module1​ редактора VBA и​Project-VBAProject​ Error Resume Next​ к нему разные.​ но я не​

​ Run-time error 9​​ мнения не совпадают,​ объявить? Это же​ кода, а можно​
​ было удобнее воспользоваться​ Nothing​ папки​ & xls ‘открываю​ 111, 11 ‘111​Нажмите кнопку Microsoft​>​.​ вернуться к книге​кликаем правой кнопкой​

​ Do While wb​​Сейчас обращение к​ могу добавить код​ Subscript out of​​ то я уже​ пример )​ то же действие​
​ однострочным if, дабы​​Set FSO =​Vitalts​ другую книгу 111​
​ ГЅГІГ® ГЇГ*ðîëü Г*Г*​ Office, а затем​Immediate Window​Вот как можно создать​ Excel.​ мыши по имени​ = Nothing Set​
​ этому файлу выглядит​ по причине отсутствия​ range​ автоматически не друг,​Цитата​ описать одной строкой.​
​ не закрывать, а​​ Nothing​: Все названия Excel​ oExcel.Visible = True​
​ îòêðûòèå ГґГ*éëГ*, 11​ — Параметры Excel.​или нажатием комбинации​ новый объект​Чтобы запустить только что​ рабочей книги (в​ wb = Workbooks.Open(Filename:=pName(i)​ следующим образом:​ окна екселя… код​Юрий М​ потому, что «мнения​(Michael_S)200?’200px’:»+(this.scrollHeight+5)+’px’);»>У каждого свои​
​ Что легче можно​ перенос для наглядности.​Deep = 0​ файлов в папке​ ‘False oExcel.Range(«A1»).Select ‘Выделил​ ГЅГІГ® ГЇГ*ðîëü Г*Г*​Щелкните Популярное и​ клавиш​Userform​

​ добавленный макрос, нажмите​​ левой верхней части​ & fName) i​1ый путь:​ не большой написан,​: Глобальную переменную в​
​ друзей должны совпадать​ понятия «правильности»​ будет понять и​
​для наглядности многострочный​End If​ активной книги, исключая​ стартовую ячейку oExcel.ActiveSheet.Paste​ èçìåГ*ГҐГЁГҐ oExcel.Visible =​ затем установите флажок​

​Ctrl+G​​,​Alt+F8​ окна редактора) и​ = i +​Sub MyCode ()​ просто стало интересно)​ стандартный модуль -​ всегда»? (это следует​вообще-то нет​ отредактировать? Ведро картошки​ If. В вашем​End Function​ ее:​ ‘ВставилЭто для примера,​​ True ‘False Windows(«AIC_SIP.xls»).Activate​​ Показывать вкладку «Разработчик»​. Это окно помогает​

​Module​​. Откроется диалоговое окно​ в контекстном меню​
​ 1 Loop End​​ ChDir _ «C:UsersCDesktopFOLDER»​Aleksey1404​ будет доступна всюду.​ из твоих слов)​Правильность она «одна​
​ можно отвезти на​ случае это неочевидность.​впрочем, уже вижу​
​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​​ может комуто и​ ‘Г*ГЄГІГЁГўГ*öèÿ ìîåãî ГґГ*éëГ*​ на ленте.​
​ при отладке кода.​или​Макрос​ выбираем​ Sub​
​ Workbooks.Open Filename:= _​​:​ И модуль не​Цитата​ на всех мы​
​ мопеде, не нужен​Цитата​ косяк​Dim fn As​ понадобится.​ Range(«A1:C3»).Select ‘âûáèðГ*Гѕ äèГ*ГЇГ*çîГ*​Примечание. Лента является​ Оно выполняет роль​Class Module​(Macro). В списке​Insert​Doober​ «C:UsersÍDesktopFOLDERFILENew.xls» дальше код​Aleksey1404​ нужно указывать.​(RAN)200?’200px’:»+(this.scrollHeight+5)+’px’);»>но вся проблема​ за ценой не​ для этого БелАз.​(Vitalts)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Кстати, проверки названий​но не критичный​ String​Но всегда есть​ ГїГ·ГҐГҐГЄ Selection.Copy ‘êîïèðóþ​
​ частью интерфейса «Пользовательский​ области вывода для​:​Имя макроса​>​: Проверил,работает​
​ работы с открытым​​, Вы наверно не​Если книга уже​ в том -​
​ постоим», только это​ Но если тебе​ файлов на самого​
​ )​​With ActiveWorkbook​ но… Дальше у​ End SubВыдаёт ошибку​ интерфейс Microsoft Office​ отладки выражений и​В окне​
​(Macro name) выберите​

​Module​​Sub Гав_Гав() PathForFile$​ файломДальше работа с​
​ с того конца​ открыта — зачем​ что она одна,​ не все понимают​ так​ себя у вас​

​Vitalts​​fn = Dir(.Path​ меня куча строк​

​ и что хочешь​​ Fluent».​ позволяет вычислять отдельные​​Project​ нужный макрос и​.​ = Get_Folder &​ открытым файлом.​ начали программу писать​
​ указывать путь?​​ но для всех​ )​
​нравитЬся​​ нет.​:​ & «*.xls*»)​ с заданием (макрос​ делай. Подскажите пожалуйста​В меню Справка​
​ выражения или выполнять​​выберите рабочую книгу,​ нажмите кнопку​Копируем код VBA (с​ «FILENew.xls» End Sub​И когда мне​Сначала следовало забить​
​deathogre​ разная!​Цитата​

​, я тоже не​​функция, представленная мной​nerv​Do Until fn​ короче написан). Мне​ как активизировать тот​ выберите пункт Справка:​ строки кода по​ в которую нужно​Выполнить​
​ веб-страницы или из​ Public Function Get_Folder()​ надо поменять путь​ в форму код,​: Мне нужно в​Не поверишь, есть​​(Michael_S)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Саш, мы уже​​ против​ возвращает список файлов​, эээ, и вы​ = «»​ что, перед каждой​ лист и работать​ Microsoft Visual Basic.​ одной.​ добавить объект, и​(Run).​ другого источника) и​

​ As String Set​​ к этому файлу,​а потом в​
​ открытую книгу писать​ нюансы, но в​ как-то говорили на​nerv​ заданной папки. Понятия​
​ утверждаете что у​If fn <>​ командой ставить oExcel?​
​ в нём (я​Роман царьков​Например, введите выражение «​ кликните по ней​Урок подготовлен для Вас​ вставляем его в​
​ FSO = CreateObject(«Scripting.FileSystemObject»)​ я его просто​
​ прятки с​ изменения, через глобальную​
​ целом правильность одинаковая​

​ эту тему; твои​​: чуть меньше неверно,​ «самого себя» здесь​ меня извороты?​ .Name Then: _​Всё!!! Получилось. Строка​ так понимаю, нужно​
​: кнопка Visual Basic​
​?j​ правой кнопкой мыши.​
​ командой сайта office-guru.ru​​ правую область редактора​ If FSO.FolderExists(«C:UsersCDesktopFOLDER») Then​ переписываю руками:​
​Excel​ переменную хочу обращаться​
​Я общаюсь не​​ доводы отчасти верны,​ чем полностью​ нет, т.к. функции​Чем вам Dir​Debug.Print fn​oExcel.Application.Run «‘111.xls’!ГЊГ*êðîñ1″сделала свою​
​ WorkSheets сделать активным,​ подсвечена серым и​» и нажмите​В появившемся меню кликните​Источник: https://www.ablebits.com/office-addins-blog/2013/12/06/add-run-vba-macro-excel/​
​ VBA (окно​​ Get_Folder = «C:UsersCDesktopFOLDER»​
​2 путь:​`ем играть.​ к этой книге​ только (и уже​ но не для​Цитата​ все равно, откуда​ не угодил?​
​fn = Dir​​ работу. А Вам,​ а не всю​ не работает как​Enter​Insert​
​Перевел: Антон Андронов​Module1​ Else ‘ Get_Folder​​Sub MyCode ()​Странно, у меня​Юрий М​ не столько) на​ всех случаев​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Можно написать на​ она вызывается. Думаю,​Похоже, изначально не​Loop​ Ципихович Эндрю, очень​ книгу) . Или​ быть?​– в результате​и в раскрывшемся​Автор: Антон Андронов​).​ = «Y:PublicFolder1» End​ ChDir _ «Y:PublicFolder1″​shift​: Обращайтесь — кто​ форумах по эксель,​для каких случаев​ 10 страниц «правильного»​ несложно удалить из​ правильно понял вас.​
​End With​​ БОЛЬШОЕ СПАСИБО за​ ещё попроще, может​
​Юрик​ будет выведено текущее​ меню выберите​В этой главе даётся​Подсказка:​ If Set FSO​ Workbooks.Open Filename:= _​
​позволяет открыть файл​​ мешает? ) Public​ и почему то​ мои доводы не​
​ кода, а можно​ коллекции лишний Item.​ В данном случае,​Ну и собственно,​ помощь!!!​ после открытия книги,​
​: Меню: Сервис -​ значение переменной​Userform​ очень краткий обзор​Как увеличить скорость​ = Nothing End​ «Y:PublicFolder1FILENew.xls» дальше код​ в​ Wb As Workbook​

excelworld.ru

Как открыть книгу Excel в VBA

​ везде (кроме известных​​ верны?​ то же действие​KuklP​ мне караз таки​ открытие книги по​

​Ципихович Эндрю​​ можно как то​ Макрос — Редактор​j​,​
​ редактора Visual Basic​ выполнения макроса?​ Function​

​ работы с открытым​​Excel​ Sub Макрос1() Workbooks.Open​

​ мне форумов по​​KuklP​ описать одной строкой.​: Саша, ты из​

​ было удобнее воспользоваться​​ названию файла и​

​: если обращаетесь к​​ запустить макрос написанный​ Visual Basic.​.​Module​ в Excel. Если​
​В самом начале кода​В принципе я почти​ файлом​без автозапуска макросов​ Filename:=»D:ОтчетыСостояние ТС.xlsm» Set​ эксель) правильность одна.​: Саш, ты посмотри​

​опиши одной строкой​​ пушки по воробьям​ однострочным if, дабы​ папки активной:​ этому обекту тогда​ уже в Excel,​
​Или просто Alt​Чтобы открыть окно​или​

​ Вы любознательный читатель​​ Вашего макроса VBA​ во всём разобрался,​Вопрос: можно ли​IvanOK​ Wb = ActiveWorkbook​

​ Я никому не​​ на себя со​ алгоритм сортировки (без​ стреляешь. Миша пишет:​ не закрывать, а​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Set wb =​ КОНЕЧНО перед каждой​ а там уже​ — F11.​

​Locals​​Class Module​
​ и хотите узнать​ должны содержаться строки:​ осталось только понять,​ каким-то образом прописать​: открылось когда жал​ MsgBox Wb.Name End​

​ навязывал, даже не​​ стороны. Ты упорно​ выгрузки на лист)​Т.е. первый же​ перенос для наглядности.​ Workbooks.Open(ActiveWorkbook.Path & «»​ командой ставить oExcel!!!!!​ на много проще?​Саня​, нажмите​

​.​​ еще больше информации​Application.ScreenUpdating = False​ как не стирать​

​ оба пути, чтобы​​ шифт в самом​ Sub​ обсуждал этот вопрос​ пытаешься доказать всем​Цитата​

​ файл с несовпадающим​​Кстати, проверки названий​

planetaexcel.ru

Как открыть форму, а Excel скрыть или вовсе не открывать

​ & fn)​​S_e_m​S_e_m​: Хм… Вообще, если​Locals Window​Для каждого из описанных​ о редакторе, то​Application.Calculation = xlCalculationManual​ содержимое файла, при​ при обращении по​ экселе Файл-открыть, а​

​KL​​ (с совершенно посторонними​
​ участникам темы, что​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Что легче можно​

​ именем — нужный.​​ файлов на самого​

​—​​: С ВБ 6.0​​: Я очень прошу,​​ я не ошибаюсь,​
​в меню​ выше объектов предусмотрено​ при желании без​​Если таких строк нет,​
​ повторном запуске программы.​​ первому пути (через​ не щелкая по​​: Или даже так:​

​ людьми), но исходя​​ твой громоздкий, глючный​ будет понять и​ Вариант Vitalts гораздо​

​ себя у вас​​PS: что-то код​ закончил. Перекинулся на​ помогите с задачкой:​

​ то в MS​​View​ специальное окно, в​

​ проблем найдете ресурсы​​ то обязательно добавьте​ Практически уверен, что​ диск С), если​ самому файлу)))​Public Wb As​ из их сообщений,​ в таком виде​ отредактировать?​ лучше подходит для​ нет.​ при каждом релоаде​ ВБ .Нет 2010​

​ 1) та что​​ Office есть такая​​редактора Visual Basic.​​ котором будет создаваться​ с более подробным​ следующие строки в​
​ всё дело вот​ файл найден, продолжалась​
​IvanOK​ Workbook Sub Макрос1()​​ очевидно, что правильность​​ код лучше, чем​
​подозреваю, что эту​​ этого случая и​​Michael_S​ по разному кажет,​​ (по работе надо).​​ нужно, книга открылась.​

​ фишка — макросы.​​ В этом окне​ и храниться новый​ описанием.​ свой макрос, чтобы​ в этой строке:​

​ работа, а, если​​: при етом коде​ Set Wb =​ одна. Это видно​ пятистрочный код Vitalts.​ длинную строку будет​ не привлекает внешних​: Vitalts, в вашем​ пофиксил форматирование​ Никак не получается​ 2) Нужно скопировать​
​ Вот эти макросы​ отображаются все переменные,​ код VBA. Порядок​Простейший способ запустить редактор​

​ он работал быстрее​​oExcel = CreateObject(«Excel.Application»)​​ не найден, обращение​​ появляется ексель, потом​
​ Workbooks.Open (Filename:=»D:ОтчетыСостояние ТС.xlsm»)​ по коду, по​

​Я понимаю, если​​ сложнее понять и​​ библиотек. Я уж​​ варианте не хочет​
​nerv​​ с таким кодом->​ с этой книги​
​ пишутся на VB.​ объявленные в текущей​ при этом такой:​ Visual Basic в​ (см. рисунок выше):​Ведь тут явно​ происходило по второму​

​ исчезает, потом появляется​​ MsgBox Wb.Name End​ его стилю. Т.е.​ бы ты девушке,​ отредактировать, чем много​ не говорю о​​ открывать файл (error)​​: Зачем же такие​Dim exl As​ диапазон ячеек 3)​ Но что бы​ процедуре. Окно делится​
​Код, который относится к​ Excel – нажать​В самое начало кода​ создаётся новый файл.​ пути и далее,​ сама форма, а​ Sub​ все хорошие прогеры​ далекой от Экса,​

CyberForum.ru

2 возможных пути открытия файла в VBA

​ правильных/правильно_отформатированных строк​​ размере кода.​
​nerv, Саш, в​ извороты? не проще​
​ Object Dim xlUp​ вставить в другой​ Exel’ем открыть проект…​ на столбцы, в​
​ рабочей книге, должен​ комбинацию клавиш​ после всех строк,​ На что её​ опять же, продолжалась​ есель исчезает как​KL​ видя код говорят,​ это доказывал. Или​Цитата​nerv​
​ вашем варианте жалуется​ воспользоватся многострочным If?​ As Object Dim​
​ файл ексель этот​
​ ну тока если​ которых содержатся имя,​ быть введён в​Alt+F11​ начинающихся с​ нужно заменить, чтобы​ работа.​
​ ето избежать тоесть​: Кстати, ChDir для​ «что такое хорошо,​ ты всех нас​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Ведро картошки можно​
​: Я ни в​
​ на​мой велосипед. Особо​ Selection As Object​ диапазон.​ скопировать исходник, создать​ значение и тип​
​ соответствующий объект​(то есть нажать​Dim​ вместо этого открывать​Думалось сделать через​ нужно что бы​ открытия книги таким​ а что такое​ дураками считаешь?​ отвезти на мопеде,​ кого не стреляю,​Mask​ не тестировал, но​
​ Dim xlDown As​Ну честно, очень​ макрос и туда​
​ каждой переменной, и​ЭтаКнига​ клавишу​(если строк, начинающихся​ существующий?​ on error resume​ просто появилась форма​ способом не нужен.​ плохо». Почему надо​Цитата​ не нужен для​ я животных люблю​и что он​ должен работать )​ Object Dim xlAscending​ нужно!!!​
​ код вставить)​

​ эта информация обновляется​​(ThisWorkbook);​​Alt​ с​

​Ev​​ next так:​

​ в невидемом екселепоявилась​​ Он нужен для​
​ делать так, а​(nerv)200?’200px’:»+(this.scrollHeight+5)+’px’);»>для каких случаев​ этого БелАз​Я привел написанный​ должен делать мне​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Example()​

​ As Object Dim​​Ципихович Эндрю​Тока придётся ещё​
​ автоматически в ходе​

​Код, который относится к​​и, удерживая её,​Dim​: Избыточно объявлять три​Sub MyCode ()​ просто форма​ функции GetOpenFileName, которая,​ не иначе.​ мои доводы не​его можно донести​ мной ранее код​

​ не понятно. У​​Set Folder =​ xlGuess As Object​
​: вижу что файл​ и форму там​ выполнения программы. Окно​

​ рабочему листу, должен​​ нажать клавишу​нет, то вставляем​

​ объектных переменных (oExcel,​​ On error resume​есть ли у​
​ кстати, тоже уже​Цитата​ верны? — и​ в руках, если​ (под свои нужды)​ меня задача -​ GetFileList(«d:Contacts»)​ Dim xlTopToBottom As​в то же​ чертить новую :)​Locals​ быть введён в​F11​ сразу после строки​

​ oBook, oSheet).​​ next ChDir _​
​ кого каки ето​ не нужна, т.к.​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Хочешь быть нарциссом​ правда думаешь, что​ на то пошло.​Цитата​ открыть файл.​End Sub​ Object Dim xlSortNormal​ время вижу​Олег филатов​очень полезно при​ соответствующий объект​

planetaexcel.ru

Visual Basic работа с файлами Excel (открытие на дозапись)

​). После этого откроется​Sub​Вполне достаточно одной…​ «Y:PublicFolder1» Workbooks.Open Filename:=​ варианты решения етой​ уже давно есть​ — ради Бога​ кому-то интересно искать​ Речь не об​
​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Т.е. первый же​
​За помощь спасибо.​’ —————————————-​ As Object Sub​нестыковка​: Вот Вам руководство​ отладке кода VBA.​

​Лист​​ окно редактора Visual​):​.​
​ _ «Y:PublicFolder1FILENew.xls» ChDir​
​ проблемы​

​ Application.FileDialog(msoFileDialogOpen)​

Вывод
(передача пользователю) результатов
работы программы и других сообщений
осуществляется через диалоговое
окно сообщений.

Для
организации вывода информации используется
встроенная функция MsgBox.

Рассмотрим
варианты ее применения.

1.    y
= Sqr(16)

MsgBox y

2.    S
= 99

MsgBox
(“S=
” & S)

это
знак
конкатенации
– амперсанд;

применяется
для объединения нескольких строк в
одну

3.    a
= 5: b = 101

MsgBox
(«a=»
& a & » » & «b=» &
b)

4.   MsgBox
(«a=»
& a & Chr(13) & «b=» & b)

с
помощью этой функции вводится символ
перехода

на
новую строку (преобразует
число в символ)

Работа с объектами Excel

Объект
– это
базовая категория в объектно-ориентированном
прог-раммировании.

Объектная
модель Excel
представляет собой иерархию объектов,
подчиненных одному объекту Application,
который соответствует самому
приложению Excel. Объектами Excel
являются
рабочие книги, рабочие листы, диаграммы,
диапазоны ячеек, ячейки и т. д.

VBA
может программно управлять любым из
этих объектов.

Каждый
объект обладает
набором свойств,
методов
и событий.

Свойство
– это характеристика или параметр
объекта.

Метод
– это действие, которое может выполнять
объект.

Событие
– это действие, на которое объект
реагирует автоматически.

Управлять
объектом в VBA
можно 3 путями:

• изменяя
  свойства объекта;

• активизируя
  метод, связанный с объектом;

• определяя
  процедуру, запуск которой произойдет
  как отклик на событие.

Вывод
информации в ячейку Excel

Ячейка
как объект Excel в VBA-программе
обозначается Cells(i,
j),
где i
–
номер строки, j–
номер столбца электронной таблицы.

Y

Значение
Y

будет
выведено
на
активный лист рабочей книги Excel в
ячейку B3

= 0.01

Cells(3,
2) = Y

С

Переменной
B
будет
присвоено значение,

которое
хранится в ячейке С5

(т.
е. содержимое ячейки С5)

читывание информации из
ячейки Excel

B = Cells(5,
3)

Средство vba для ввода информации

Ввод
информации от пользователя осуществляется
через диалоговое окно ввода. Реализуется
с помощью встроенной функции InputBox.

Dim
x As Single

x= Val (InputBox («Введите
x»))

Функция
InputBox
возвращает последовательность символов,
введенную в поле ввода (15)
как данные типа String
(строковый). Встроенная функция Val()
преобразует
строковое значение из поля ввода в
числовое.

Линейные вычислительные процессы

Линейный
алгоритм
характеризуется строгой последовательностью
реализации блоков в порядке их
расположения в схеме – сверху – вниз.
Условные блоки отсутствуют. Каждый
блок выполняется однократно.

Пример  1

Вычислить значение функции

при
k
= 33,5 x
= 17

1.   Составим
алгоритм решения задачи.

2.   В
окне редактора кода введем программный
код:

Option
Explicit

Sub
Линейный_процесс
()

Dim
k As
Single,
x As
Single,
y As
Single
‘объявление
переменных

k
= 3.5

x
= Val
(InputBox
(«Введите
значение x»))

y
= k
* Exp(Sin(x))

MsgBox
«y=»
& y
‘
вывод
результата в диалоговое окно

End
Sub

Команда
Option
Explicit
обязывает
объявлять все переменные в данной
программе. Может размещаться только в
разделе объявлений модуля.

Комментарии
–пояснения,
следуют за знаком «апостроф» ‘.
Игнорируются компилятором.

Соседние файлы в папке VBA

• #
• #
• #