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

mori868

產品字串:=產品名稱 + '   ' + 策略名稱 +'   '+ 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"

沒房子的阿捨

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

ufai0005

第一行像是Delphi

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

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

mori868

ufai0005 發表於 15-7-30 23:44
第一行像是Delphi

接下來是VBScript

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

zaqimon

google隨便找的

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

mori868

zaqimon 發表於 15-7-31 17:15
google隨便找的

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

謝謝   正在應用中