dim workbook as excel.workbook
dim worksheet as excel.worksheet
dim strfiled as string=string.empty
dim strprintname as string=string.empty
worksheet = workbook.sheets(1)
'根據excelsheet名選中模版
dim bln as boolean = false
for i as integer = 1 to workbook.sheets.count
if workbook.sheets(i).name.equals(me.txtsendtypename.text.trim) then
worksheet = workbook.sheets(i)
bln = true
exit for
end if
next
if bln = false then
msgbox("列印模板沒有找到！")
else
worksheet.select()
with worksheet
'選中區域
.range("a1:az26").select()
'替換區域
.range("a1").select()
end with
'設定預設印表機
end if
'列印worksheet.printout()
'指定預設印表機
'關閉excel檔案
workbook.close()
說明：range.replace 方法：
返回 boolean，它表示指定區域內單元格中的字元。使用此方法並不會更改選定區域或活動單元格。
語法 表示式.replace(what, replacement, lookat, searchorder, matchcase, matchbyte, searchformat, replaceformat)
引數可選/必選
說明what
必選excel 要搜尋的字串。
replacement
必選替換字串。
lookat
可選可為以下 xllookat 常量之一：xlwhole 或 xlpart。
searchorder
可選可為以下 xlsearchorder 常量之一：xlbyrows 或 xlbycolumns。
matchcase
可選布林值。如果為 true，則搜尋區分大小寫。
matchbyte
可選只有在 microsoft excel 中選擇或安裝了雙位元組語言時，才能使用此引數。如果為 true，則雙位元組字元只與雙位元組字元匹配。如果為 false，則雙位元組字元可與其對等的單位元組字元匹配。
searchformat
可選該方法的搜尋格式。
replaceformat
可選該方法的替換格式。
根據Excel模板匯出Excel資料
給出 模板和資料 自動生成excel param type 預設為0 param path 模版路徑 param title 要顯示的標題 未用到 param exportname 匯出名稱 param tablehead 列表的表頭 未用到 param datalist 資料項 param dat...
根據excel模版匯出資料到excel
匯出模版的位置 if temppath.length 0 else public class excelhelper 利用模板，datatable匯出到excel 單個類別 datatable 模板的檔案路徑 名稱 檔案標識 sheet名 1 經營 情況 2 生產經營情況 3 專案投資情況 4 房產...
賦值容器winform 根據NAME查詢控制項
每日一貼,今天的內容關鍵字為賦值容器 foreach control c in this.panel1.controls 每日一道理 自己把自己說服了，是一種理智的勝利 自己被自己感動了，是一種心靈的昇華 自己把自己征服了，是一種人生的成功。我查詢的panel容器裡全部的name為 tb i 的動態...