verticalalignment 4108（怎么从网页导出execl js）

本文目录

• 怎么从网页导出execl js
• 用vba 生成一个excel文件，合并了一些单元格，存盘后发现合并取消了
• PB SaveAsAscii导出EXCEL是空白的，代码如下： 本机正常导出，有的电脑无法导出
• Excel 请教怎么用excel绘次数统计图

怎么从网页导出execl js

1、首先创建此jsp页面：（功能为导出页面数据到Excel）
《%@ page language="java" import="java.util.*" pageEncoding="utf-8"%》《%String path = request.getContextPath();String basePath = request.getScheme()+"://"+request.getServerName()+":"+request.getServerPort()+path+"/";
%》
《!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"》
《HTML》《HEAD》
《TITLE》将页面中指定表格的数据导入到Excel中《/TITLE》
《SCRIPT LANGUAGE="javascript"》
function AutomateExcel1(){var oXL = new ActiveXObject("Excel.Application"); //创建应该对象var oWB = oXL.Workbooks.Add();//新建一个Excel工作簿var oSheet = oWB.ActiveSheet;//指定要写入内容的工作表为活动工作表//指定要写入的数据源的idvar table = document.all.data;var hang = table.rows.length;//取数据源行数var lie = table.rows(0).cells.length;//取数据源列数
// Add table headers going cell by cell.for (i=0;i《hang;i++){//在Excel中写行for (j=0;j《lie;j++){//在Excel中写列//定义格式oSheet.Cells(i+1,j+1).NumberFormatLocal = "@";//!!!!!!!上面这一句是将单元格的格式定义为文本oSheet.Cells(i+1,j+1).Font.Bold = true;//加粗oSheet.Cells(i+1,j+1).Font.Size = 10;//字体大小oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText;//向单元格写入值}}
oXL.Visible = true;oXL.UserControl = true;}
《/SCRIPT》《/HEAD》《SCRIPT LANGUAGE="javascript"》
function autoExcel(){ alert("进入函数");// Start Excel and get Application object.var oXL = new ActiveXObject("Excel.Application");
oXL.Visible = true;
// Get a new workbook.var oWB = oXL.Workbooks.Add();var oSheet = oWB.ActiveSheet;
// Add table headers going cell by cell.oSheet.Cells(1, 1).Value = "First Name";oSheet.Cells(1, 2).Value = "Last Name";oSheet.Cells(1, 3).Value = "Full Name";oSheet.Cells(1, 4).Value = "Salary";
// Format A1:D1 as bold, vertical alignment = center.oSheet.Range("A1", "D1").Font.Bold = true;oSheet.Range("A1", "D1").VerticalAlignment = -4108; //-4108 xlVAlignCenteroSheet.Range("A1", "D1")//ALT+/显示// Create an array to set multiple values at once.
// Fill A2:B6 with an array of values (from VBScript).oSheet.Range("A2", "B6").Value = CreateNamesArray();
// Fill C2:C6 with a relative formula (=A2 & " " & B2).var oRng = oSheet.Range("C2", "C6");//oRng.Formula = "=A2 & " " & B2";oRng.Formula = "=RAND()*100000";// Fill D2:D6 with a formula(=RAND()*100000) and apply format.oRng = oSheet.Range("D2", "D6");oRng.Formula = "=RAND()*100000";oRng.NumberFormat = "$0.00";
// AutoFit columns A:D.oRng = oSheet.Range("A1", "D1");oRng.EntireColumn.AutoFit();
// Manipulate a variable number of columns for Quarterly Sales Data.DispalyQuarterlySales(oSheet);
// Make sure Excel is visible and give the user control// of Excel’s lifetime.oXL.Visible = true;oXL.UserControl = true;}《/script》　　《BODY》《table border="0" width="300" id="data" bgcolor="black" cellspacing="1"》《tr bgcolor="white"》《td》编号《/td》《td》姓名《/td》《td》年龄《/td》《td》性别《/td》《/tr》《tr bgcolor="white"》《td》0001《/td》《td》张三《/td》《td》22《/td》《td》女《/td》《/tr》《tr bgcolor="white"》《td》0002《/td》《td》李四《/td》《td》23《/td》《td》男《/td》《/tr》《/table》《input type="button" name="out_excel" onclick="autoExcel()" value="导出到excel"》《input type="button" name="out_excel" onclick="AutomateExcel1()" value="导出到excel方法二"》《/BODY》《/HTML》
2、下面的这个是导入Excel数据的源码：
《%@ page language="java" import="java.util.*" pageEncoding="utf-8"%》《%String path = request.getContextPath();String basePath = request.getScheme()+"://"+request.getServerName()+":"+request.getServerPort()+path+"/";%》
***隐藏网址***
(f.value)" /》《/body》《/html》

用vba 生成一个excel文件，合并了一些单元格，存盘后发现合并取消了

你的代码不全，怎么分析？
Sub m()
flag5 = 1
i = 9
Sheets(1).Range("G" + Trim(Str(flag5)) + ":G" + Trim(Str(i - 1))).Merge
Sheets(1).Range("G" + Trim(Str(flag5)) + ":G" + Trim(Str(i - 1))).VerticalAlignment = -4108
Workbooks(1).Close
’Workbooks(2).Close ’代码如果在第一个文件中，第一个文件关闭时，也就结束了整个程序，第二个文件也就没有保存。
End Sub

PB SaveAsAscii导出EXCEL是空白的，代码如下： 本机正常导出，有的电脑无法导出

语法本身没有错误，可能还是运行环境的原因。很多网上下载的office,导入导出的时候就是会出现问题。可以选择使用其他的导出方式，比如用uo或者自定义输出函数！f_saveasexcel(dw_1,ls_err) 。函数代码：
integer li_rtn,ii,li_asc
string ls_name,ls_pathname
boolean lb_exist
long numcols,c,r
int ret
string ls_colname,ls_text,ls_modistr,ls_col
string ls_s,ls_temp
long ll_bupper,ll_blower,ll_j
OLEObject lx_excel
if datawin.RowCount() 《 1 then
err = "请先检索数据再导出至Excel!"
return false//error
end if
li_rtn = GetFileSaveName("保存文件",ls_pathname,ls_name,"xls","Excel文件(*.xls),*.xls")
if li_rtn = 1 then
lb_exist = FileExists(ls_pathname)
IF lb_exist THEN
li_rtn = MessageBox("保存", ls_pathname+"已经存在,是否覆盖?",Exclamation!, YesNo!)
end if
if li_rtn = 1 then
//当文件存在用户选择覆盖，或是文件本就不存在时。注意变量li_rtn
li_rtn = datawin.SaveAsAscii(ls_pathname)
if li_rtn 《》 1 then
err = "导出数据失败!"
return false//error
end if
else
err = "请选择要导出的路径!"
return false//error
end if
else
err = "已取消输出!"
return false
end if
//通过ole直接操作excel
lx_excel = CREATE OLEObject

//连接excel
IF lx_excel.ConnectToNewObject("excel.application") 《》 0 THEN
err = "OLE连接Excel错误!"
return false
END IF
//打开导出Excel文件
lx_excel.workbooks.open(ls_pathname)
//设置表格框
lx_excel.Worksheets(1).UsedRange.Borders.LineStyle = 1
//首行粗体
lx_excel.Worksheets(1).rows(1).Font.Bold = True
//首行单元格水平居中
lx_excel.Worksheets(1).rows(1).HorizontalAlignment = -4108
//首行单元格垂直居中
lx_excel.Worksheets(1).rows(1).VerticalAlignment = -4108
//调整Excel行高，列宽
lx_excel.Worksheets(1).Cells.EntireColumn.AutoFit
lx_excel.Worksheets(1).Cells.EntireRow.AutoFit
//所有列设置成文件格式显示 12-07
lx_excel.Worksheets(1).Range("A1:W8992").NumberFormatLocal = "@"
//不进行提示
lx_excel.DisplayAlerts = false
//保存表格
lx_excel.ActiveWorkbook.saveas(ls_pathname,-4143)
//关闭打开的Excel
lx_excel.ActiveWorkbook.close
//退出
lx_excel.quit
err = "导出数据成功!"
return true//success

Excel 请教怎么用excel绘次数统计图

有位朋友给我了这个程序，可是我是电脑门外汉，没有找到...Office\2052\MSOWCVBA.CHM ，也不知道怎么处理宏，麻烦高手验证下这个程序是否可以，简单介绍下如何使用，非常感谢
C:\Program Files\Microsoft Office\Office\2052\MSOWCVBA.CHM

《HTML》
《BODY》
《SCRIPT LANGUAGE="VBScript"》
Function CreateNamesArray()
’ Create an array to set multiple values at once.
Dim saNames(5, 2)
saNames(0, 0) = "John"
saNames(0, 1) = "Smith"
saNames(1, 0) = "Tom"
saNames(1, 1) = "Brown"
saNames(2, 0) = "Sue"
saNames(2, 1) = "Thomas"
saNames(3, 0) = "Jane"
saNames(3, 1) = "Jones"
saNames(4, 0) = "Adam"
saNames(4, 1) = "Johnson"
CreateNamesArray = saNames
End Function
《/SCRIPT》

《SCRIPT LANGUAGE="JScript"》
function AutomateExcel()
{
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application";

oXL.Visible = true;

// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;

// Add table headers going cell by cell.
oSheet.Cells(1, 1).Value = "First Name";
oSheet.Cells(1, 2).Value = "Last Name";
oSheet.Cells(1, 3).Value = "Full Name";
oSheet.Cells(1, 4).Value = "Salary";

// Format A11 as bold, vertical alignment = center.
oSheet.Range("A1", "D1".Font.Bold = true;
oSheet.Range("A1", "D1".VerticalAlignment = -4108; //xlVAlignCenter

// Create an array to set multiple values at once.

// Fill A2:B6 with an array of values (from VBScript).
oSheet.Range("A2", "B6".Value = CreateNamesArray();

// Fill C2:C6 with a relative formula (=A2 & " " & B2).
var oRng = oSheet.Range("C2", "C6";
oRng.Formula = "=A2 & \" \" & B2";

// Fill D26 with a formula(=RAND()*100000) and apply format.
oRng = oSheet.Range("D2", "D6";
oRng.Formula = "=RAND()*100000";
oRng.NumberFormat = "$0.00";

// AutoFit columns A.
oRng = oSheet.Range("A1", "D1";
oRng.EntireColumn.AutoFit();

// Manipulate a variable number of columns for Quarterly Sales Data.
DispalyQuarterlySales(oSheet);

// Make sure Excel is visible and give the user control
// of Excel’s lifetime.
oXL.Visible = true;
oXL.UserControl = true;
}

function DispalyQuarterlySales(oWS)
{
var iNumQtrs, sMsg, iRet;

// Number of quarters to display data for.
iNumQtrs = 4;

// Starting at E1, fill headers for the number of columns selected.
var oResizeRange = oWS.Range("E1", "E1".Resize(1,iNumQtrs);
oResizeRange.Formula = "=\"Q\" & COLUMN()-4 & CHAR(10) & \"Sales\"";

// Change the Orientation and WrapText properties for the headers.
oResizeRange.Orientation = 38;
oResizeRange.WrapText = true;

// Fill the interior color of the headers.
oResizeRange.Interior.ColorIndex = 36;

// Fill the columns with a formula and apply a number format.
oResizeRange = oWS.Range("E2", "E6".Resize(5,iNumQtrs);
oResizeRange.Formula = "=RAND()*100";
oResizeRange.NumberFormat = "$0.00";

// Apply borders to the Sales data and headers.
oResizeRange = oWS.Range("E1", "E6".Resize(6,iNumQtrs);
oResizeRange.Borders.Weight = 2; // xlThin

// Add a Totals formula for the sales data and apply a border.
oResizeRange = oWS.Range("E8", "E8".Resize(1,iNumQtrs);
oResizeRange.Formula = "=SUM(E2:E6)";
// 9 = xlEdgeBottom
oResizeRange.Borders(9).LineStyle = -4119; //xlDouble
oResizeRange.Borders(9).Weight = 4; //xlThick

// Add a Chart for the selected data.
oResizeRange = oWS.Range("E2:E6".Resize(5,iNumQtrs);
var oChart = oWS.Parent.Charts.Add();
oChart.ChartWizard(oResizeRange, -4100, null, 2); // -4100 = xl3dColumn
oChart.SeriesCollection(1).XValues = oWS.Range("A2", "A6";
for (iRet = 1; iRet 《= iNumQtrs; iRet++) {
oChart.SeriesCollection(iRet).Name = "=\"Q" + iRet + "\"";
}
oChart.Location(2, oWS.Name); // 2 = xlLocationAsObject

// Move the chart so as not to cover your data.
oWS.Shapes("Chart 1".Top = oWS.Rows(10).Top;
oWS.Shapes("Chart 1".Left = oWS.Columns(2).Left;
}
《/SCRIPT》
《P》《INPUT id=button1 type=button value="创建Excel表格和柱状图" onclick="AutomateExcel"》《/P》
《/BODY》
《/HTML》