Word 및 Excel_javascript 기술을 작동하기 위한 javascript 구현 코드

1.保存html页면到단어

复主代码 代码如下:

<제목>


<본문>

单원格1	单원格2	单원格3	单元格4
单元格合并

2.용JS생성워드

复主代码代码如下:

<script> <br>function wordcontorl(){ <br>alert("1111") <br>var WordApp=new ActiveXObject("Word.Application"); <br><br>var wdCharacter=1 <br>var wdOrientLandscape = 1 <br>WordApp.Application.Visible=true; <br>var myDoc=WordApp.Documents.Add(); <br><br>WordApp.ActiveDocument.PageSetup.Orientation = wdOrientLandscape <br><br>WordApp. Selection.ParagraphFormat.Alignment=1 //1居中对齐,0为居右 <br>WordApp. Selection.Font.Bold=true <br>WordApp. Selection.Font.Size=20 <br><br>WordApp. Selection.TypeText("나의 마음"); <br>워드앱. Selection.MoveRight(wdCharacter);　　　　//빛나는 右移字符 <br>WordApp.Selection.TypeParagraph()　　　　　　　　　//插入段落 <br>WordApp. Selection.Font.Size=12 <br>WordApp. Selection.TypeText("副标题"); //분리활동 <br>WordApp.Selection.TypeParagraph()　　　　　　　　　//插入段落 <br><br><br><br>var myTable=myDoc.Tables.Add (WordApp.Selection.Range, 7) //8行7列的表格 <br>//myTable.Style="网格型" <br>var aa = "내가 좋아하는 꿈" <br><br>var TableRange; //以下为给表格中的单元格赋值 <br>for (i= 0;i{ <br>with (myTable.Cell(1,i 1).Range) <br> { <br>font.Size = 12; <br>다음에 삽입(aa); <br>열 너비 =4 <br>} <br>} <br><br>for (i =0;i{ <br>for (n =0;n{ <br><br>(myTable.Cell(i 2,n 1).Range) <br>{font.Size = 12; <br>InsertAfter("bbbb"); <br>} <br>} <br>} <br>row_count = 0; <br>col_count = 0 <br>myDoc.Protect(1) <br>} <br>wordcontorl() <br></script>

******************************************** ************************************************** ********
3.遍历导출到단어
******************************** ************************************************** *******************
1、遍历导流每个文本框内的内容。

复제代码 代码如下:

2. table1의 내용을 단어

코드 복사 🎜 > 코드는 다음과 같습니다.

********************** ******** ****************************************** ********* ************************
엑셀 운영
******** *********** *************************************** ************ ****************************



코드 복사

코드는 다음과 같습니다.

<%@ 페이지 c %>

콘텐츠

javascript" type="text/javascript">
function MakeExcel() {
var i, j, n;
try {
var xls = new ActiveXObject("Excel.Application");
}
catch(e) {
alert( "이 표를 인쇄하려면 Excel 스프레드시트 소프트웨어를 설치해야 하며 브라우저에서 "ActiveX 컨트롤"을 사용해야 하며 브라우저에서 컨트롤 실행을 허용해야 합니다.브라우저 설정 방법을 알아보려면 [도움말]을 클릭하세요!");
return "";
}
xls.visible =true; // Excel이 표시되도록 설정
var xlBook = xls.Workbooks.Add;
var xlsheet = xlBook. 워크시트(1)

xlsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(1,7)).mergecells=true; > xlsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(1,7)).value="카드 발급 기록";
xlsheet.Range(xlsheet.Cells(1,1),xlsheet. Cells( 1,3)).Interior.ColorIndex=5; //배경색을 파란색으로 설정
// xlsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(1,6)). Font.ColorIndex=4; //글꼴 색상 설정
// xlsheet.Rows(1).Interior .ColorIndex = 5;//배경색을 파란색으로 설정하고 Rows(1).Font를 설정합니다. ColorIndex=4

xlsheet.Rows(1).RowHeight = 25

xlsheet.Rows(1).Font.Size=14

xlsheet.Rows(1). Font.Name ="Boldface";

xlsheet.Columns("A:D").ColumnWidth =18;

xlsheet.Columns(2).NumberFormatLocal="@"
xlsheet.Columns(7).NumberFormatLocal="@" ;
//셀 내용을 자동으로 줄 바꿈하도록 설정 range.WrapText = true; 셀 내용
/ /range.VerticalAlignment=Excel.XlVAlign.xlVAlignCenter
//range.WrapText = true; 1).Value = "카드 번호"
xlsheet.Cells(2, 2).Value = "비밀번호";
xlsheet.Cells(2, 3).Value = "청구 방법";
xlsheet.Cells(2, 4).Value = "유효 기간"
xlsheet.Cells( 2, 5).Value = "금액";
xlsheet.Cells(2, 6).Value = "보유 서비스 항목";
xlsheet.Cells(2, 7).Value = "카드 발급 시간" ;
var oTable = document.all['fors:data'];
var rowNum = oTable.rows.length
for(i = 2; i <= rowNum; i ) {
for (j = 1; j <= 7; j ) {
//html 테이블 클래스는 Excel
xlsheet.Cells(i 1, j).Value = oTable.rows(i - 1).cells(j - 1).innerHTML;
}
}

// xlsheet.Range(xlsheet.Cells(i, 4), xlsheet.Cells (i-1, 6)).BorderAround , 4
// for(mn= 1,mn<=6;mn ) .xlsheet.Range(xlsheet.Cells(1, mn), xlsheet.Cells(i1, j)).Columns.AutoFit;
xlsheet.Columns.AutoFit
xlsheet .Range( xlsheet.Cells(1,1),xlsheet.Cells(rowNum 1,7)).HorizontalAlignment =-4108;/ /가운데
xlsheet.Range( xlsheet.Cells(1,1),xlsheet.Cells (1,7)).VerticalAlignment =-4108;
xlsheet.Range( xlsheet.Cells(2,1),xlsheet .Cells(rowNum 1,7)).Font.Size=10; Range( xlsheet.Cells(2,1),xlsheet.Cells(rowNum 1,7)).Borders(3).Weight = 2; //왼쪽 여백 설정
xlsheet.Range( xlsheet.Cells(2, 1),xlsheet.Cells(rowNum 1,7)).Borders(4).Weight = 2; //오른쪽 여백 설정
xlsheet.Range( xlsheet.Cells(2,1),xlsheet.Cells(rowNum 1,7)).Borders(1).Weight = 2;//상단 여백 설정
xlsheet.Range( xlsheet.Cells (2,1),xlsheet.Cells(rowNum 1,7)).Borders( 2).Weight = 2;//하단 여백 설정
xls.UserControl = true; //매우 중요하므로 생략할 수 없습니다. 그렇지 않으면 문제가 있는 경우 Excel이 제어되고 있다는 의미입니다. 사용자
xls=null;
xlBook=null
xlsheet=null
}

테스트

卡号	密码	计费方式	有效天数	金额	所属服务项目	发卡时间
h000010010	543860	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010011	683352	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010012	433215	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010013	393899	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010014	031736	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010015	188600	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010016	363407	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010017	175315	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010018	354437	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010019	234750	计点		2.0	测试项目	2006-06-23 10:14:40.843

复代码 代码如下:

<%--
// ---------------------------------- 1 ---------------------------------- \




" C>




<본문>
<테이블 ID ='out'>

00001	0002
00001	000002
0003	00003