台灣最大程式設計社群網站
線上人數
1718
 
會員總數:246098
討論主題:189672
歡迎您免費加入會員
討論區列表 >> ASP >> [ASP] 匯出Excel(.xls),打開會跳出警告訊息的解決方法? 如何匯出成Excel 200
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[ASP] 匯出Excel(.xls),打開會跳出警告訊息的解決方法? 如何匯出成Excel 200
價值 : 90 QP  點閱數:501 回應數:1
樓主

阿山
初學者
316 32
1108 151
發送站內信

各位前輩好,小弟今天遇到一個找不到解決方法的問題,特上來請教各位前輩。


使用如上程式碼加上HTML Tag,可以匯出Excel檔,只是會跳出如下錯誤訊息,但還是可以正常開啟Excel資料


然而手邊有個匯出xlsx檔的範列,如下:


但是變成要指定存檔路徑,而不是另存新檔,請問我這樣的問題該如何解決呢?謝謝!

搜尋相關Tags的文章: [ ASP ] , [ Excel ] , [ xlsx ] ,
本篇文章發表於2019-10-23 16:36
1樓
作者回應

阿山
檢舉此回應
自己手邊有找個一個範例,給大家參考參考。


<!--#include file="func\func.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>xxx明細表匯出</title>
</head>
<script type="text/javascript">
function closeEvent(FileStr)
{
location.href = "/test/filedel.asp?delpath="+FileStr;
}

function fileDelete(FileStr){

location.href = "/test/filedel.asp?delpath="+FileStr;
window.close();
}
</script>
<%
Dim location

date1 = Format_Time(Request("date1"),2)
date2 = Format_Time(Request("date2"),2)

If date1 = date2 Then
tablename = date1&"xxx明細表"
Else
tablename = date1&"~"&date2&"xxx明細表"
End If

FileStr = "/test/xls/"&tablename&".xlsx"
%>
<body onbeforeunload="closeEvent('<%=FileStr%>')">
<%
Set rs = Server.CreateObject("Adodb.Recordset")

sql = "SELECT * "
sql = sql + "FROM templetable "
sql = sql + "WHERE ACCOUNTDATE BETWEEN '"&date1&"' AND '"&date2&"' "
rs.Open sql,Sql05Conn,1,1
title = Array("aaa","bbb","ccc","ddd","eee")

Set xlApp = Server.CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Add
'xlApp.Visible = True '是否顯示exce程式
xlApp.DisplayAlerts = False '關閉覆蓋詢問的對話框

Set xlWs = xlWb.Worksheets(1)
xlWs.Activate

For i=0 to UBound(title)
xlWs.cells(1,i+1).value = title(i)
xlWs.cells(1,i+1).Interior.colorindex = 15 '設定欄位背景顏色
'xlWs.cells(1,i+1).horizontalalignment = 3 '欄位置中
Next

xlWs.select
xlWs.Name = tablename
xlWs.Range("A2").CopyFromRecordset rs '從A2貼上,因A1要放欄位名稱
xlWs.range("A:Z").font.size = 10 '設定字體大小
xlWs.Range("A:Z").Columns.AutoFit '自動調整欄寬
xlWb.worksheets(tablename).Select

location = Server.MapPath ("/test/xls/"&tablename&".xlsx")

xlApp.ActiveWorkbook.Saveas location '儲存檔案
xlApp.ActiveWorkbook.Close
xlApp.Application.Quit


rs.close
Set rs = Nothing
Sql05Conn.close
Set Sql05Conn = Nothing
%>
<a href="<%=FileStr%>">點我下載Excel檔</a>
<br><br>
<input type="button" name="close" value="關閉" onClick="fileDelete('<%=FileStr%>')">
</body>
</html>
本篇文章回覆於2020-07-03 16:20
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.