VBNet - Форум - Возможно ли программно открыть файл?

Вопрос: Возможно ли программно открыть файл? Добавлено: 23.11.02 05:41

Автор вопроса: Son

Vb6.0 Возможно ли программно открыть файл, например xls?

Сохранить его?

Закрыть?

Спасибо

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

Last_Santa

ICQ: 200700724

Вопросов: 38
Ответов: 329

Web-сайт: localhost
Профиль | | #1

Добавлено: 23.11.02 05:50

Обьявляем АПИ:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Const SW_SHOWMAXIMIZED = 1

И пишем там где нужно:

ShellExecute 0, "open", "myFile.xls", "", "", SW_SHOWMAXIMIZED

Этот пример откроет твой файл в Екселе или в другой программе, в зависимости от типа файла, например ели файл .doc то в Worde или .txt в Notepade

Ответить

Номер ответа: 2 Автор ответа: ГАТ Вопросов: 2 Ответов: 117	Web-сайт: www.mail.ru Профиль \| \| #2	Добавлено: 23.11.02 07:36
	Когда-то ковырялся в References и нашел библиотеку Microsoft Exel Object Library. Честно говоря, текучка не дает разобраться что к чему, но если есть время посмотри, может поможет. Ответить

Номер ответа: 3
Автор ответа:

Last_Santa

ICQ: 200700724

Вопросов: 38
Ответов: 329

Web-сайт: localhost
Профиль | | #3

Добавлено: 24.11.02 01:47

Из архива форума, может быть станет полезным:

Тема: RE: Эскпорт из DataGrid в Excel

Автор: Тимур
Дата: 23.04.2002 14:46:58

Пример не мой, я проверял - работает

Источник: Relib.com

Проблема:

Экспорт данных в Excel и отображение готового документа. Вставив данный пример в свою программу вы сможете налету создать документ MS Excel с данными и диаграммой. Не забудте подключить Referense для Excel.

Решение:

Private Sub Command1_Click()

Dim varNum As Long

Dim objExcel As Excel.Application

Dim objWorkbook As Excel.Workbook

Dim objWorksheet As Excel.Worksheet

'Запустить Excel COM и сделать его видимым.

Set objExcel = GetObject("", "excel.application")

'Set objExcel = excel.Application ' Seems to cause a memory leak

objExcel.Visible = True

'Запустить Workbook.

Set objWorkbook = objExcel.Workbooks.Add

'Выключить сообщения.

objExcel.DisplayAlerts = False

Do While objWorkbook.Worksheets.Count > 1

Set objWorksheet = objWorkbook.Worksheets.Item(objWorkbook.Worksheets.Count)

objWorksheet.Delete

Loop

'Установить активную страницу.

Set objWorksheet = ActiveSheet

'Переименовать страницу в "Results".

objWorksheet.Name = "Results"

'Заголовки столбцов

objWorksheet.Cells(1, 1) = "Blah Blah Blah Analytic Labs"

objWorksheet.Cells(1, 1).Font.Bold = True

objWorksheet.Cells(2, 1) = "Experiment Name"

objWorksheet.Cells(2, 1).Font.Bold = True

objWorksheet.Cells(2, 3) = "Trial Number"

objWorksheet.Cells(2, 3).Font.Bold = True

objWorksheet.Cells(2, 5) = "Batch Number"

objWorksheet.Cells(2, 5).Font.Bold = True

objWorksheet.Cells(3, 1) = " " & Now

objWorksheet.Cells(3, 1).Font.Bold = True

'Результаты


			Поиск по форуму
		
			






			

	
		




						© Copyright 2002-2011 VBNet.RU | 
						Пишите нам