如何編寫asp access的標頭來生成excel

直接將包含**的htm字尾改為xls，用excel開啟即可變成excel**。 例如，如果在excel中開啟它，效果如下：檔案的實際文字內容為：

201001工資構成表。

專案總數。 在職員工的工資。

退休員工工資 （80%）

注：本月更改說明。

一是員工人數。

2.工資總額。

其中： 1工作（技能）工資。

2.保留工資。

3.工齡工資。

4.三項費用。

5.生產津貼。

1）技術員津貼。

2）道歉貼紙。

6.加班。

7.夜班。

8.製作獎。

9.個人獎項。

10.其他加 1（汽車貼紙）。

11.其他加 2

我會給你乙個我正在使用的例子，我會找出問題所在並給我發一條私信。

舉個例子：set fs =""） 建立 FSO 物件。

excelfilename = ""基礎和）'指定鍵欄位操作的檔案。

set myfile = ,2,true) '開啟 excel 檔案並建立它（如果它不存在）'編寫內容。

for i= 1 to 3 '寫入的行數。

strline=""

for j= 1 to 5 '寫入的列數。

strline= strline &"中華人民共和國" &chr(9) '以 CHR（9） 為區間，可以將其劃分為不同的列。

next strline '資料將寫入 excel，一次一行。

nextset fs=nothing

動手練習後，對樓上稍微修改一下單詞，就可以了。 以下是完整的原始**部分。

for each x in

strline = strline & chr(9)next

替換為以下部分。

dim aa

for each x in

aa=""select case

case "name"

aa="名字"

case "date"

aa="日期"

case "言論"

aa="言論"

case "張三"

aa="第三章"

end select

strline = strline &aa& chr(9)next

注意：必須為所有表重新定義列名。

for each x in

strline = strline & chr(9)

它應該是欄位名稱，在將值分配給 strline 之前，您應該判斷並替換為中文字段名稱。

上傳檔案 if （ 上傳並寫入庫 --- execl data import 120000 then %>alert（"您選擇的檔案大小太大！ "); wind...

dim xls as object

dim wb as object

dim ws as object

set xls = createobject("")set wb =

set ws = "sheet1")

with ws

朦朧的cells(1, 1).value = test" 'A1 毀容內容物。

cells(1, 1).= Microsoft 是黑色的" 'A1 字型。

宴會是指cells(1, 1). = 20 'A1 字型大小。

columns("a:a").columnwidth = 50 '列 a 寬度。

end with

true

給我發點東西，我去看看。

我已經用過很多次了，我稍後再給你寫乙個。

端午節過後我幫你解決，1040888811