ASP는 데이터(그림)를 Excel로 가져옵니다. ASP의 최종 버전은 Excel을 운영합니다. 필요한 친구가 이를 참조할 수 있습니다. Excel로 데이터를 가져오기 위해 프로그램을 사용해야 하는 사람들이 많이 있다고 생각하며, 일반적으로 일부 텍스트 데이터를 내보내는 것이 매우 편리합니다. cvs 형식(기본적으로 Excel에서 열림)(쉼표와 캐리지 리턴으로 데이터 구분), 예를 들어 xls 파일을 데이터로 처리하고 SQL을 사용하여 연산하는 등 이미지 데이터를 내보내야 할 경우 어떻게 해야 합니까? ? Excel.Application 개체를 사용해야 합니다.
실제로 Excel.Application을 사용하면 OfficeExcel 소프트웨어가 할 수 있는 모든 작업을 수행할 수 있고 그 기능도 상당히 강력합니다. 그러나 우리 각자는 학습 에너지가 제한되어 있으므로 모든 사람이 익숙해지는 것은 불가능합니다. , 가치있는 것을 얻기 위해 Baidu와 Google에서 단어를 검색하면서 많은 키를 선택했습니다. 그러나 검색한 결과 대부분은 문의 사항이었고 코드에는 명백한 오류가 많이 포함되어 있었습니다. 기능적 결함.다른 사이트의 기사를 직접 복사하는 사이트가 많다는 점은 비판할 만하다. 그리고 아직 질 낮은 글인데, 찾지 마세요! 내가 지옥에 안 가면 누가 지옥에 간다는 말처럼 모두를 위해 이 일을 했습니다.
처음에 VBA 매뉴얼 모음을 찾았는데 다행히 chm 형식이었습니다. 그 안에 있는 Vbaexcelxl10.chm을 열었는데, 뭐 나쁘지는 않고 좋은 매뉴얼이긴 하지만 튜토리얼은 아닌 것 같은 느낌이 듭니다. 울컥... 어쩔 수 없이 계속 읽어봤습니다. 결국 매뉴얼은 매뉴얼일 뿐이고, 편리한 조작을 자세히 언급하지도 않고, 각각의 논리적 연결을 설명하지도 않습니다. 나의 세심한 분석과 과감한 예측 끝에, 내용의 일부를 완전히 담았습니다. 신중한 생각, 많은 실험, 칼의 산 위로, 냄비 아래로, 아니, 불의 바다, 마침내 완벽하게 달성했습니다. 이제 하룻밤 사이에 Web630.Net에 업로드되었습니다. 이 사이트를 기억하시고, 각 기술 사이트에서 더 많은 독창적인 기사를 게시하고 중국 프로그래밍 산업 발전에 기여할 수 있기를 바랍니다.
다음과 같이 코드 코드를 복사합니다.
<%
Rem은 ExcelApplication의 작업 환경을 초기화합니다.
희미한 ExcelApp,eBook,eSheet
Set ExcelApp = CreateObject(Excel.Application) 'Excel 개체 생성
ExcelApp.DisplayAlerts=false '경고를 표시하지 않음
ExcelApp.Application.Visible=false '인터페이스를 표시하지 않음
Rem은 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) '첫 번째 워크시트 참조
Rem 데이터 가져오기
어둡게 해,img
나는 = 1
i=1 ~ 5의 경우
eSheet.Cells(i,1).Value=필드 1&i
eSheet.Cells(i,2).Value=필드 2&i
eSheet.Cells(i,3).Value=필드 3&i
eSheet.Cells(i,4).Select '행 i의 4번째 셀 선택
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 '현재 행의 높이를 자동으로 그림의 높이와 동일하게 조정합니다.
다음
Rem은 위에서 수행한 작업을 저장합니다.
'eBook.Save' 기존 Excel 파일을 여는 경우 이 줄을 사용하여 다음 줄을 바꿀 수 있습니다.
eBook.다른 이름으로 저장 서버.MapPath(zzz.xls)
eSheet=아무것도 설정하지 않음
eBook=아무것도 설정하지 않음
'ExcelApp.Quit'을 종료해야 합니다. 그렇지 않으면 Excel 프로세스가 운영 체제에 남아 있습니다.
ExcelApp = 없음 설정
%>
ASP가 Excel에서 데이터를 읽거나 쓸 때 더 간단한 방법은 Excel을 데이터베이스로 취급하고 SQL 문을 사용하여 이를 실행하는 것입니다. 이 기사는 "ASP가 Excel로 데이터를 가져옵니다( 그림)" "The Final Edition"의 보조 정보는 참고용입니다.
다음과 같이 코드 코드를 복사합니다.
<%
딤콘,rs,sql
하위DB열기()
희미한 db: db=Server.MapPath(zzz.xls)
conn=Server.CreateObject(Adodb.Connection) 설정
오류 발생 시 다음 재개
conn.Open 공급자=Microsoft.Jet.OLEDB.4.0;확장 속성=Excel 8.0;HDR=YES;데이터 원본= & db
Rem HDR의 기본값은 YES입니다. 즉, 첫 번째 줄이 필드 이름으로 사용되며, 그렇지 않으면 콘텐츠로 간주됩니다.
Excel2007의 경우 Rem은 다음과 같아야 합니다. Provider=Microsoft.ACE.OLEDB.12.0; Extended Properties=Excel 12.0;Data Source=xxx.xlsx;
Err.Number<>0이면
Err.Clear
Response.Write(<h1>데이터베이스 링크가 오류입니다</h1>)
응답.끝()
종료 조건
오류 발생 시 GoTo 0
서브 끝
하위DB닫기()
IsNotBlank(conn)인 경우
연결.닫기()
conn=아무것도 설정하지 않음
종료 조건
서브 끝
함수 IsNotBlank(ByRef TempVar)
IsBlank=참
케이스 VarType(TempVar) 선택
사례 0,1 '비어 있음 및 Null
IsBlank = 거짓
사례 9 '객체
TypeName(TempVar) = 없음 또는 TypeName(TempVar) = 비어 있는 경우
IsBlank = 거짓
종료 조건
선택 종료
기능 종료
CallDBOpen()
sql=SELECT * FROM [Sheet1$] '테이블 이름 쓰기에 주의하세요. 워크시트 이름 뒤에 $ 기호를 추가해야 합니다.
rs=conn.Execute(sql)를 설정합니다.
rs.Eof가 아닌 동안
응답.쓰기(rs(0)&, )
응답.쓰기(rs(1)&, )
응답.쓰기(rs(2)&<br />&VbCrLf)
rs.Movenext
향하게 하다
rs.Close: rs=아무것도 설정하지 않음
DB닫기() 호출
%>