mori868 發表於 15-7-23 06:26

產品字串如何直接寫入EXCEL"A1"

產品字串:=產品名稱 + '   ' + 策略名稱 +'   '+ NowDT +'   ' + NowC +'   ' + NowPO +'   ' ;

<%
on error resume next
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fs, wrkfs
Report = FFL.VarData("產品字串")
Set fs = CreateObject("Scripting.FileSystemObject")
Set wrkfs = fs.OpenTextFile("D:\tttt.csv",ForWriting,TRUE)
wrkfs.WriteLine(report)
wrkfs.close
err.clear
%>
請教如何修改直接寫入EXCEL"A1"

沒房子的阿捨 發表於 15-7-23 09:04

建議google看看 "asp 寫入 excel"
應該有很多您需要的範例.

ufai0005 發表於 15-7-30 23:44

第一行像是Delphi

接下來是VBScript
只是你的VBScript是寫在那裡?asp,vbs?

感覺上..若你FFL.VarData("產品字串")弄出來的也只是一個字串(非逗號,分號隔開).
那你把D:\tttt.csv用Excel打開...他應該就整串會出現在A1

mori868 發表於 15-7-31 05:02

ufai0005 發表於 15-7-30 23:44 static/image/common/back.gif
第一行像是Delphi

接下來是VBScript


1: 目前FFL.VarData("產品字串")是寫在D:\tttt.csv
2: 希望 產品字串是用CSV格式直接寫入EXCEL"A1"

zaqimon 發表於 15-7-31 17:15

本帖最後由 zaqimon 於 15-7-31 17:16 編輯

google隨便找的

http://iammic.pixnet.net/blog/po ... -%E6%AA%94%E6%A1%88

mori868 發表於 15-7-31 19:35

zaqimon 發表於 15-7-31 17:15 static/image/common/back.gif
google隨便找的

http://iammic.pixnet.net/blog/po ... -%E6%AA%94%E6%A1%88

謝謝   正在應用中
頁: [1]
查看完整版本: 產品字串如何直接寫入EXCEL"A1"