ASP импортирует данные (изображения) в Excel. Последняя версия ASP использует Excel. Друзья, нуждающиеся в этом, могут обратиться к нему. Я считаю, что есть много людей, которым необходимо использовать программы для импорта данных в Excel, и они это сделали. Как правило, экспорт некоторых текстовых данных очень удобен. Существует множество дополнительных методов, таких как объединение текстовых строк и сохранение их в формате . cvs (разделение данных запятыми и возвратом каретки), по умолчанию открываемый в Excel), например, обработка файла xls как данных и использование SQL для его работы и т. д. Что мне делать, когда мне нужно экспортировать данные изображения? ? Для этого необходимо использовать объект Excel.Application.
Фактически, используя Excel.Application, вы можете выполнять все операции, которые может выполнять программное обеспечение OfficeExcel, и эта функция довольно мощная. Однако у каждого из нас ограниченная энергия для обучения, и каждый не может с ней ознакомиться. , я выбрал много ключей, искал слова в Baidu и Google, надеясь получить что-то ценное, но после поиска не смог найти полную версию. Большинство из них были запросами, а код содержал много очевидных ошибок и ошибок. функциональные недостатки секса Стоит покритиковать то, что большое количество сайтов напрямую копируют статьи с других сайтов. И это все равно некачественная статья Эй, не ищите! Как говорится, если я не попаду в ад, то кто пойдет в ад, поэтому я сделал эту работу за всех.
Сначала я нашел коллекцию руководств по VBA, и, к счастью, она была в формате chm, я открыл в ней Vbaexcelxl10.chm, и, ну, это неплохо, это действительно хорошее руководство, но это не учебник, и мне кажется. плачу... Ничего не могу поделать, мне ничего не оставалось, как читать дальше. Ведь инструкция есть инструкция, и в ней не будут подробно описаны некоторые удобные операции и не будет объяснена логическая связь каждой. часть контента полностью после моего тщательного анализа и смелого прогноза. Тщательное обдумывание, множество экспериментов, вверх по горе ножей, вниз по горячему горшку, нет, по морю огня, наконец-то добились этого идеально. Теперь я загрузил это на Web630.Net за одну ночь, надеюсь, все это сделают. Помните этот сайт, и я надеюсь, что каждый технологический сайт будет публиковать больше оригинальных статей и способствовать развитию индустрии программирования Китая.
Скопируйте код кода следующим образом:
<%
Рем инициализирует рабочую среду ExcelApplication
Dim ExcelApp, электронная книга, электронная таблица
Set ExcelApp = CreateObject(Excel.Application) 'Создание объекта Excel
ExcelApp.DisplayAlerts=false 'Не отображать предупреждения
ExcelApp.Application.Visible=false 'Не отображать интерфейс
Рем инициализирует данные Excel
'ExcelApp.Workbooks.Open(Server.MapPath(zzz.xls)) 'Откройте книгу Excel и замените следующую строку
Set eBook=ExcelApp.Workbooks.Add 'Создать новую книгу Excel
Set eBook=ExcelApp.Workbooks(1) 'Ссылка на первую книгу
set eSheet = eBook.Worksheets(1) 'Ссылка на первый рабочий лист
Импорт удаленных данных
Дим я, img
я = 1
Для я = от 1 до 5
eSheet.Cells(i,1).Value=Поле первое&i
eSheet.Cells(i,2).Value=Поле 2&i
eSheet.Cells(i,3).Value=Поле три&i
eSheet.Cells(i,4).Select 'Выберите четвертую ячейку в строке i
Set img=eSheet.Pictures.Insert(Server.MapPath(people.jpg)) 'Вставьте изображение в указанное выше место и получите ссылку на изображение
img.Top=img.Top+2 'Отрегулируйте положение картинки, как показано ниже, иначе она будет давить на край стола
img.Left=img.Left+2 'Единица измерения – фунты
eSheet.Rows(i).RowHeight=img.Height+4 'Отрегулируйте высоту текущей строки так, чтобы она автоматически совпадала с высотой изображения
Следующий
Рем сохраняет проделанную выше работу
'eBook.Save 'Если вы открываете существующий файл Excel, вы можете использовать эту строку для замены следующей строки
электронная книга.SaveAs Server.MapPath(zzz.xls)
Установить электронный лист = Ничего
Установить электронную книгу=Ничего
Необходимо выйти из ExcelApp.Quit, иначе процесс Excel останется в операционной системе.
установите ExcelApp = Ничего
%>
Когда ASP читает или записывает данные в Excel, более простой метод — рассматривать Excel как базу данных и использовать инструкции SQL для работы с ней. Во многих местах в Интернете есть соответствующие статьи. Эта статья посвящена только теме «ASP импортирует данные в Excel (. картинка)» Вспомогательная информация «Последнего издания» предназначена для справки.
Скопируйте код кода следующим образом:
<%
Dim conn,rs,sql
СубДБОпен()
Тусклая база данных: db=Server.MapPath(zzz.xls)
Установить conn=Server.CreateObject(Adodb.Connection)
При ошибке Возобновить Далее
conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Расширенные свойства=Excel 8.0;HDR=ДА;Источник данных= & db
По умолчанию для Rem HDR установлено значение «ДА», что означает, что первая строка используется в качестве имени поля, в противном случае она рассматривается как содержимое.
Rem для Excel2007, это должно быть: Provider=Microsoft.ACE.OLEDB.12.0 Extended Properties=Excel 12.0;Data Source=xxx.xlsx;
Если Номер ошибки<>0, то
Ошиб.Очистить
Response.Write(<h1>Ссылка на базу данных — ОШИБКА</h1>)
Ответ.Конец()
Конец, если
При ошибке Перейти к 0
Конец субтитра
SubDBClose()
Если IsNotBlank(conn) Тогда
конн.Закрыть()
Установить conn=Ничего
Конец, если
Конец субтитра
Функция IsNotBlank(ByRef TempVar)
IsBlank=Истина
Выберите Case VarType(TempVar)
Случай 0,1 'Пустой и нулевой
IsBlank = Ложь
Случай 9 «Объект
Если ИмяТипа(TempVar) = Ничего Или ИмяТипа(TempVar) = Пусто Тогда
IsBlank = Ложь
Конец, если
Конец выбора
Конечная функция
ВызовDBOpen()
sql=SELECT * FROM [Sheet1$] 'Обратите внимание на написание имени таблицы. Вам нужно добавить символ $ после имени листа.
Установите rs=conn.Execute(sql)
Пока не RS.Eof
Response.Write(rs(0)&, )
Response.Write(rs(1)&, )
Response.Write(rs(2)&<br />&VbCrLf)
RS.Movenext
Венд
rs.Close: Установить rs=Ничего
ВызовDBClose()
%>