- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5蘋果iphone自動時間不準確的多種校正方法
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 7Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 8Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 9ipad版office如何激活? office365激活的圖文說明教程
- 10最新的Adobe Illustrator CS4序列號大全
- 11Mac怎么通過設置VPN來登錄youtube等國外網站
- 12qq郵件是否已讀怎么看 QQ郵箱已經發出去的郵件怎么知道對方是否已經查看
[摘要]<%set xlApp = Server.CreateObject("Excel.Application")'使服務端不出現Excel窗口xlApp.Visible = false'建立一個worksheetset myWorkbook = xlApp.W...
<%
set xlApp = Server.CreateObject("Excel.Application")
'使服務端不出現Excel窗口
xlApp.Visible = false
'建立一個worksheet
set myWorkbook = xlApp.Workbooks.Add
set myWorksheet = myWorkbook.Worksheets(1)
'建立表頭
myWorksheet.Range("A1").Value = '電話薄'
myWorksheet.Range("A1").Font.Size = 18
myWorksheet.Range("A1").Font.Bold = true
myWorksheet.Range("A2").Value = '姓名'
myWorksheet.Range("B2").Value = '住址'
myWorksheet.Range("C2").Value = '電話'
myWorksheet.Range("D2").Value = '傳真'
myWorksheet.Range("A2:D2").Font.Bold = true
'確保文件名唯一
strFileName = Session.SessionID & ".xls"
strAppPath = Request.ServerVariables("PATH_TRANSLATED")
strAppPath = Left(strAppPath, InstrRev(strAppPath, "\"))
strFullPath = strAppPath & strFileName
'保存文件
myWorkbook.SaveAs(strFullPath)
'關閉Excel
myWorkbook.Close
xlApp.Quit
set myWorksheet = Nothing
set myWorkbook = Nothing
set myxlApp = Nothing
'寫出到瀏覽器中
Response.Redirect strFileName
%>
推薦資訊 總人氣榜
最新教程 本月人氣
- 1qq瀏覽如何刪除書籍 qq瀏覽刪除書籍流程分享
- 2網易云課堂課程如何結束 網易云課堂結束課程圖文說明教程說明
- 3第5人格新版本更新了什么 第5人格新版本更新內容說明
- 4qq瀏覽器如何兌換騰訊視頻會員 qq瀏覽器兌換騰訊視頻會員流程
- 5釘釘如何去掉頭像帽子 釘釘去掉頭像帽子圖文說明教程分享
- 6拼多多店鋪提現失敗如何辦 拼多多店鋪提現失敗處理方法
- 7美圖秀秀社交圈如何上熱門 美圖秀秀社交圈上熱門方法分享
- 8酷狗音樂如何投稿歌單 酷狗音樂投稿歌單流程講解
- 9美圖秀秀社交圈如何玩 美圖秀秀社交圈玩法分享
- 10360相機如何刪除水印 360相機刪除水印流程
- 11qq瀏覽粉絲值如何查看 qq瀏覽粉絲值查看方法
- 12網易云音樂如何自動選擇排序 網易云音樂自動選擇排序圖文說明教程
