|
摘要：
function DiffDays(date1, date2) { // Parameters : // date1 : Date object // date2 : Date object // Returns : Number of days between date1 and date2var iDate2Time = date2.getTime();var iDate1Time = date1.getTime();var iReturn = (iDate2Time-iDate1Time); // /(1000*60*60*24);return (iReturn); } 阅读全文
posted @ 2010-12-07 23:53 ☆Keep★Moving☆ 阅读(215) 评论(0) 推荐(0) 编辑
摘要：
sContent為字符串，sPattern為要替換的單引號，sReplexp為替換成雙引號function ReplaceString(sContent, sPattern, sReplexp){ var arrSingle; var sReturnString; // split 的工作原理:"as'asdf'asd'''f".split(sPattern)// 轉換後會變為[as], [asdf], [asd], [], [], [f] if(sContent.length 0) { if(sContent.indexOf(sPattern) =0) { arrSingle = s 阅读全文
posted @ 2010-12-07 23:52 ☆Keep★Moving☆ 阅读(145) 评论(0) 推荐(0) 编辑
摘要：
function StringToDate(sDate) { // Parameters : // sDate : A string with the format "mm/dd/yyyy" or "mm/dd/yyyy hh:mm:ss" // Returns : a Date object if (sDate ==""){ sDate="01/01/2040";}var ArDateTime = sDate.split (" "); var ArDate = ArDateTime[0]; var splitDate = ArDate.split ("/"); var nDay = ToN 阅读全文
posted @ 2010-12-07 23:52 ☆Keep★Moving☆ 阅读(283) 评论(0) 推荐(0) 编辑
摘要：
方法一：private void Button13_Click(object sender, System.EventArgs e) { this.Datagrid4.Visible=true; Response.Clear(); Response.Buffer= true; Response.Charset="GB2312"; Response.AppendHeader("Content-Disposition","attachment;filename=File1.doc"); Response.ContentEncoding=System.Text.Encoding.GetEncodin 阅读全文
posted @ 2010-12-07 23:50 ☆Keep★Moving☆ 阅读(194) 评论(0) 推荐(0) 编辑
摘要：
1. 创建一个新excel的application:application exc = new application();if (exc == null) {console.writeline("error: excel couldn't be started");return 0;}2. 让这个工程可见:exc.set_visible(0, true);3. 获取workbooks集合:workbooks workbooks = exc.workbooks;4. 加入新的workbook:_workbook workbook = workbooks.add(xlwbatemplate.xl 阅读全文
posted @ 2010-12-07 23:50 ☆Keep★Moving☆ 阅读(2279) 评论(0) 推荐(0) 编辑
摘要：
Excel模版，自己設定好分析餅圖，如何動態地更新分析圖的數據源呢？代碼好下：'注：l_xlsWS是空義的WorkSheet Dim l_objChartPercent As Excel.ChartObject Set l_objChartPercent = l_xlsWS.ChartObjects("Chart 2") Call l_objChartPercent.Chart.SetSourceData(Source:=l_xlsWS.Range("A7,A8,D7,D8"), PlotBy:=xlColumns) If Not l_objChartPercent Is Nothing Th 阅读全文
posted @ 2010-12-07 23:46 ☆Keep★Moving☆ 阅读(529) 评论(0) 推荐(0) 编辑
摘要：
我們在界面加一個按扭，點擊後就會生成Excel的分析餅圖，代碼如下：Option Explicit Private Sub Command1_Click() Dim oXL As Excel.Application Dim oWB As Excel.Workbook Dim oSheet As Excel.Worksheet Dim oRng As Excel.Range 'On Error GoTo Err_Handler ' Start Excel and get Application object. Set oXL = CreateObject("Excel.Application") 阅读全文
posted @ 2010-12-07 21:39 ☆Keep★Moving☆ 阅读(854) 评论(0) 推荐(0) 编辑
摘要：
VB6.0Dim l_xlsApp As Excel.Application '定義一個Excel應用程序對像 Dim l_xlsWB As Excel.Workbook '定義一個Excel工作區對像 Dim l_objQTable As Excel.QueryTable Dim l_xlsWS As Excel.Worksheet '定義一個WorkSheet對像(對應Excel中的Sheet) Dim l_xlsWS2 As Excel.Worksheet '定義另一個WorkSheet對像 ' 設定物件變數 'Set l_xlsApp = CreateObject("Excel.Ap 阅读全文
posted @ 2010-12-07 21:37 ☆Keep★Moving☆ 阅读(484) 评论(0) 推荐(0) 编辑
摘要：
TestTestTestTestTestTestTestTestTestTest 阅读全文
posted @ 2010-12-07 21:30 ☆Keep★Moving☆ 阅读(66) 评论(0) 推荐(0) 编辑
摘要：
我們知道，不采用模版生成一個Excel時，默認有3個Sheet,但當我們要添加第4個Sheet怎麼辦？或者采用模版生成Sheet,但模版的Sheet我們只設定了兩個，那又如果添加多於設定的兩個呢？下列解答： Dim l_xlsApp As Excel.Application '定義一個Excel應用程序對像 Dim l_xlsWB As Excel.Workbook '定義一個Excel工作區對像 Dim l_xlsWS As Excel.Worksheet '定義一個WorkSheet對像(對應Excel中的Sheet) Dim l_xlsWS_Detail As Excel.Workshe 阅读全文
posted @ 2010-12-07 21:24 ☆Keep★Moving☆ 阅读(602) 评论(0) 推荐(0) 编辑 |
||
