<div class="codetitle"> <span><a style="CURSOR: pointer" data="87528" class="copybut" id="copybut87528" onclick="doCopy('code87528')"><u>コードをコピー</u></a></span> コードは次のとおりです:</div> <div class="codebody" id="code87528"> <br><table id = "PrintA" width="100 %" border="1" cellpacing="0" cellpadding="0" bgcolor = "#61FF13"> <br><TR style="text-align : center;"> <br><TD>セル A<br><td>セル A<br> </td> <td>セル A<br><TR> <br><TDcolSpan=4 style="text-align : center;"><font color="BLUE" face="Verdana">セルの結合 A 行< ;/FONT></TD> <br></TABLE> <br><テーブル ID = "PrintB" width="100%" border="1" 0" cellpadding="0"> <br><TR style="text-align : center;"> <br><TD>セル B</TD> <br><TD> セル B< /TD> セル B<BR></TD> <BR><TR> ColSpan=4 style="text-align : center;">セル結合行 B</TD> <br></TABLE> ><input type="button" onclick="javascript:AllAreaWord();" value="ページの指定された領域のコンテンツを Word にエクスポートします"> <br><input type="button" onclick="javascript:AllAreaExcel();" value="ページの指定された領域のコンテンツを Excel にエクスポートします"> <br><input type="button" onclick="javascript:CellAreaExcel(); " value="フォーム ユニット グリッドのコンテンツを Excel にエクスポート"> <br><br><SCRIPT LANGUAGE="javascript"> <br>//指定されたページ領域のコンテンツを Excel にインポートします <br>function AllAreaExcel () <br>{ <br>var oXL = new ActiveXObject("Excel.Application"); <br>var oWB = oXL.Workbooks.Add(); sel=document.body.createTextRange(); <br>sel.moveToElementText(); <br>sel.execCommand("Copy"); <br>oXL.Visible = true; <br>} <br>// Excel にインポートするページ領域の「セル」コンテンツを指定します <br>function CellAreaExcel() <br>{ <br>var oXL = new ActiveXObject( "Excel.Application"); <br>var oWB = oWB.ActiveSheet; <br>var Lenr = PrintA.rows.length; 0;i<lenr>{ <br>var Lenc = PrintA.rows(i).cells.length; <br>for (j=0;j<lenc>{ <br>oSheet.Cells(i 1,j 1).value = PrintA.rows(i).cells(j).innerText; <br>} <br>} <br>oXL.Visible = true; 🎜>//Word にインポートするページ領域のコンテンツを指定します。 <br> function AllAreaWord() <br>{ <br>var oWD = new ActiveXObject("Word.Application"); <br>var oDC = oWD.Documents. Add("",0,1); <br>var oRange = oDC.Range(0,1); <br>sel.moveToElementText(PrintA); 🎜>sel.select(); <br>sel.execCommand(" コピー"); <br>oWD.Application.Visible = true; ; <br>} <br></SCRIPT><br> <br></lenc></lenr> </td> </div>