以一個(gè)項(xiàng)目為基礎(chǔ)，在其工程上點(diǎn)右鍵，選添加，現(xiàn)有項(xiàng)，然后選擇另外兩個(gè)項(xiàng)目里的文件，用這種方式把所有的都添加上就行了
網(wǎng)站建設(shè)公司,為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁設(shè)計(jì)及定制網(wǎng)站建設(shè)服務(wù),專注于企業(yè)網(wǎng)站制作,高端網(wǎng)頁制作,對(duì)雨棚定制等多個(gè)行業(yè)擁有豐富的網(wǎng)站建設(shè)經(jīng)驗(yàn)的網(wǎng)站建設(shè)公司。專業(yè)網(wǎng)站設(shè)計(jì),網(wǎng)站優(yōu)化推廣哪家好,專業(yè)seo優(yōu)化排名優(yōu)化,H5建站,響應(yīng)式網(wǎng)站。
在你要引入的文件或文件夾上點(diǎn)右鍵，選包括在項(xiàng)目中
下次直接追問，要不我看不到
這個(gè)我是這么實(shí)現(xiàn)的.要用到
Excel.Application
Set xlapp = CreateObject("Excel.Application") '激活EXCEL
xlapp.Visible = True '讓EXCEL可見
Set xlbook = xlapp.Workbooks.Open(App.Path + "個(gè)人簡(jiǎn)歷.xlt")
'打開工作簿，strDestination為一個(gè)EXCEL報(bào)表文件
Set xlsheet = xlbook.Worksheets(1) '設(shè)定工作表
這個(gè)有點(diǎn)像是vb6的、vb.net也有相應(yīng)的方法的.總之是
excel.application 用到這個(gè)就可以了.必要的話導(dǎo)入excel的dll文件.
這樣你就發(fā)現(xiàn)、可以用vb.net來對(duì)excel來操作.你可以查下微軟的msdn、有具體的屬性方法.
如:
Dim ef As New Excel.Application
Dim es As New Excel.Worksheet
Dim er As Excel.Range
ef.Workbooks.Add()
es = ef.Worksheets("sheet1")
es.Activate()
er = es.Range("a1:C1")
er.Select()
er.Merge()
er.Value = "gordon1117" ef.Visible = True 目前應(yīng)用了三個(gè)對(duì)象:application,worksheet和range,三者的關(guān)系應(yīng)該清晰,做到這點(diǎn)就能從基本開始做了:)格式設(shè)置都在range對(duì)象,只不過在設(shè)置對(duì)齊屬性上是verticalalignment和horizon
range 用來定位、
然后你可以循環(huán)把數(shù)據(jù)輸出到指定了格式的excel文件里了吧、其實(shí)連格式都是可以程序控制的好好學(xué)下吧.
可以參考一下這篇文章
VB.NET安裝部署一).創(chuàng)建部署項(xiàng)目
1. 在“文件”菜單上指向“添加項(xiàng)目”，然后選擇“新建項(xiàng)目”。
2. 在“添加新項(xiàng)目”對(duì)話框中，選擇“項(xiàng)目類型”窗格中的“安裝和部署項(xiàng)目”，然后選擇“模板”窗格中的“安裝項(xiàng)目”。在“名稱”框中鍵入 setup1。
3. 單擊“確定”關(guān)閉對(duì)話框。
4. 項(xiàng)目被添加到解決方案資源管理器中，并且文件系統(tǒng)編輯器打開。
5. 在“屬性”窗口中，選擇 ProductName 屬性，并鍵入 信息管理系統(tǒng) 。
VB.NET安裝部署二).將 主程序 項(xiàng)目的輸出添加到部署項(xiàng)目中
1. 在“文件系統(tǒng)編輯器”中，選擇“應(yīng)用程序文件夾”。在“操作”菜單上，指向“添加”，然后選擇“項(xiàng)目輸出”。
2. 在“添加項(xiàng)目輸出組”對(duì)話框中，選擇“項(xiàng)目”下拉列表中的“你的程序”。
3. 單擊“確定”關(guān)閉對(duì)話框。
4. 從列表中選擇“主輸出”和“內(nèi)容文件”組，然后單擊“確定”。
VB.NET安裝部署三).創(chuàng)建安裝程序類
1. 在“文件”菜單上指向“新建”，然后選擇“項(xiàng)目”。
2. 在“新建項(xiàng)目”對(duì)話框中，選擇“項(xiàng)目類型”窗格中的“Visual Basic 項(xiàng)目”，然后選擇“模板”窗格中的“類庫”。在“名稱”框中鍵入 installDB。
3. 單擊“打開”關(guān)閉對(duì)話框。
4. 從“項(xiàng)目”菜單中選擇“添加新項(xiàng)”。
5. 在“添加新項(xiàng)”對(duì)話框中選擇“安裝程序類”。在“名稱”框中鍵入 installDB。
6. 單擊“確定”關(guān)閉對(duì)話框。
7. 詳細(xì)代碼附后。
VB.NET安裝部署四).創(chuàng)建自定義安裝對(duì)話框
1. 在解決方案資源管理器中選擇“setup1”項(xiàng)目。在“視圖”菜單上指向“編輯器”，然后選擇“用戶界面”。
2. 在用戶界面編輯器中，選擇“安裝”下的“啟動(dòng)”節(jié)點(diǎn)。在“操作”菜單上，選擇“添加對(duì)話框”。
3. 在“添加對(duì)話框”對(duì)話框中，選擇“許可協(xié)議”對(duì)話框，然后單擊“確定”關(guān)閉對(duì)話框。
4. 在“添加對(duì)話框”對(duì)話框中，選擇“文本框 (A)”對(duì)話框，然后單擊“確定”關(guān)閉對(duì)話框。
5. 在“操作”菜單上，選擇“上移”。重復(fù)此步驟，直到“文本框 (A)”對(duì)話框位于“安裝文件夾”節(jié)點(diǎn)之上。
6. 在“屬性”窗口中，選擇 BannerText 屬性并鍵入：安裝數(shù)據(jù)庫.
7. 選擇 BodyText 屬性并鍵入：安裝程序?qū)⒃谀繕?biāo)機(jī)器上安裝數(shù)據(jù)庫
8. 選擇 Edit1Label 屬性并鍵入：數(shù)據(jù)庫名稱:
9. 選擇 Edit1Property 屬性并鍵入 CUSTOMTEXTA1
10. 選擇 Edit1Value 屬性并鍵入：dbservers
11. 選擇 Edit2Label 屬性并鍵入：服務(wù)器名:
12. 選擇 Edit2Property 屬性并鍵入 CUSTOMTEXTA2
13. 選擇 Edit2Value 屬性并鍵入：(local)
14. 選擇 Edit3Label 屬性并鍵入：用戶名:
15. 選擇 Edit3Value 屬性并鍵入：sa
16. 選擇 Edit3Property 屬性并鍵入 CUSTOMTEXTA3
17. 選擇 Edit4Label 屬性并鍵入：密碼:
18. 選擇 Edit4Property 屬性并鍵入 CUSTOMTEXTA4
19. 選擇 Edit2Visible、Edit3Visible 和 Edit4Visible 屬性，并將它們?cè)O(shè)置為 true
VB.NET安裝部署五).創(chuàng)建自定義操作
1. 在解決方案資源管理器中選擇“setup1”項(xiàng)目。在“視圖”菜單上指向“編輯器”，然后選擇“自定義操作”。
2. 在自定義操作編輯器中選擇“安裝”節(jié)點(diǎn)。在“操作”菜單上，選擇“添加自定義操作”。
3. 在“選擇項(xiàng)目中的項(xiàng)”對(duì)話框中，雙擊“應(yīng)用程序文件夾”。
4. 選擇“主輸出來自 installDB（活動(dòng)）”項(xiàng)，然后單擊“確定”關(guān)閉對(duì)話框。
5. 在“屬性”窗口中，選擇 CustomActionData 屬性并鍵入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]/"”。
附:/targetdir="[TARGETDIR]/"是安裝后的目標(biāo)路徑，為了在installDB類中獲得安裝后的路徑，我們?cè)O(shè)置此參數(shù)。
VB.NET安裝部署六).添加文件
1. 將SQL Server備份成文件DB.dat添加到“setup1”項(xiàng)目(在企業(yè)管理器中右擊數(shù)據(jù)庫-所有工作-備份數(shù)據(jù)庫,備份成一個(gè)文件，取名為DB.dat)
2. 將安裝文件LisenceFile.rtf添加到“setup1”項(xiàng)目
3. 在用戶界面編輯器中，選擇許可協(xié)議，設(shè)置LisenceFile屬性為L(zhǎng)isenceFile.rtf文件
4.一般會(huì)自動(dòng)將依賴項(xiàng)添加到“檢測(cè)到的依賴項(xiàng)”，如果沒有，那么我們要手動(dòng)將其加入步驟5）
Crystal_Managed2003.msm
（如果有水晶報(bào)表）
dotnetfxredist_x86.msm
（.net一定是必須的）
... （如果有引用其他的dll）
5.如果使用了水晶報(bào)表，手動(dòng)加入要包含的文件：項(xiàng)目--添加--合并模塊（添加你的程序文件） (包括dotNetFramework和MDAC27)，位于：C:/Program Files/Common Files/Merge Modules/ 下，*為必要的
具體功能如下：
（托管組件 MSM 處理所有托管組件的分發(fā)，其中包括 Windows 窗體查看器、Web 窗體查看器和所有 Crystal Decisions 命名空間）
* Crystal_Managed2003.msm
Crystal_Managed2003_chs.msm
（對(duì)于使報(bào)表運(yùn)行所需的所有其他文件，由數(shù)據(jù)庫訪問 MSM 處理其分發(fā)。其中包括數(shù)據(jù)庫、導(dǎo)出和圖表驅(qū)動(dòng)程序。）
* Crystal_Database_access2003.msm
Crystal_Database_access2003_chs.msm
（KeyCode MSM 處理 Crystal Decisions 密鑰號(hào)碼的安裝,注意是添加合并模塊，否則沒有“MergeMouduleProperties”屬性）
* Crystal_regwiz2003.msm
（如果報(bào)表文件使用了 ADO.NET 的 dataset 數(shù)據(jù)集對(duì)象，那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模塊也必須包含在安裝工程中。而且這兩個(gè)模塊的文件安裝屬性的"Module Retargetable Folder"項(xiàng)必須修改成為系統(tǒng)目錄）
VC_User_CRT71_RTL_X86_---.msm VC_User_STL71_RTL_X86_---.msm
(很多人經(jīng)常出現(xiàn)查詢錯(cuò)誤，不妨加上這個(gè))
6.打開解決方案--右鍵點(diǎn)擊Crystal_regwiz2003.msm的屬性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（這個(gè)是你生成Crystal Report是用到的注冊(cè)號(hào)的密碼?。?/p>
VB.NET安裝部署七).打包時(shí)加入卸載功能：
方法一:
1.在打包項(xiàng)目中添加文件msiexec.exe(一般可在c:/windows/system32/下找到)
2.在文件系統(tǒng)視圖中選擇應(yīng)用程序文件夾,在msiexec.exe上按右鍵,選擇創(chuàng)建快捷方式,重命名快捷方式為"卸載".
3.更改此快捷方式的Arguments 為"/x {產(chǎn)品id}",產(chǎn)品id的值為打包項(xiàng)目的ProductCode屬性值.
方法二:(推薦)
1.先生成安裝包，記下ProductCode(選擇解決方案資源管理器根目錄如setup1,再查看屬性標(biāo)簽,不是右鍵中的屬性),下面要用到
2.用VS.net建立一個(gè)新的控制臺(tái)程序uninst.exe文件
'power by: landlordh
'for 2000,xp,2003
Module uninstall
Sub Main()
Dim myProcess As Process =
New Process
If System.Environment.OSVersion.
ToString.IndexOf("NT 5") Then
myProcess.Start("msiexec", "/X
{2B65D4A9-C146-4808-AB4B-321F
B0779559}") '改為自己的ProductCode
End If
myProcess.Close()
End Sub
End Module
3.將控制臺(tái)程序BIN目錄的exe文件加入到打包程序文件中,在程序組創(chuàng)建uninst.exe的快捷方式
VB.NET安裝部署八).打包時(shí)加入.net環(huán)境和MDAC功能：
把MS的PluginInstaller.msi插件裝上后,用vb.net的自帶的打包工具打包,就會(huì)自動(dòng)把.net framework環(huán)境打進(jìn)去,再下面的步驟進(jìn)行設(shè)置,就可以把MDAC也打包.使用 Setup 項(xiàng)目安裝 MDAC
1.確保 Visual Studio .NET 框架引導(dǎo)程序插件已安裝。
2.在 Solution Explorer 中選擇 Setup 項(xiàng)目。從 View 菜單指向 Editor，并選擇 Launch Conditions（啟動(dòng)條件）。
3.選擇 Requirements on Target Machine（搜索目標(biāo)計(jì)算機(jī)） 節(jié)點(diǎn)。從 Action 菜單，選擇 Add Registry Launch Condition（添加注冊(cè)表搜索）。
4.選擇 Search for RegistryEntry1 節(jié)點(diǎn)。在 Properties 窗口中，選擇 RegKey 屬性，并鍵入 Software/Microsoft/DataAccess。
5.選擇 Root 屬性，并選擇 vsdrrHKLM。
6.選擇 Value 屬性，并鍵入 FullInstallVer。
7.選擇 Property 屬性，并鍵入 MDACSEARCH。
8.在 Launch Conditions Editor（啟動(dòng)條件） 中，添加Condition1 節(jié)點(diǎn)。選擇 Condition1 節(jié)點(diǎn)，在 Properties 窗口中，選擇 Condition 屬性，并選擇 MDACSEARCH="2.6"。
9.在 Solution Explorer 中選擇 Setup 項(xiàng)目。在 Project 菜單上，選擇 Properties。
10.將 Bootstrapper 屬性設(shè)置為 Windows Installer Bootstrapper（Windows 安裝引導(dǎo)程序）。
打包的具體操作步驟：
1）新建“安裝和部署項(xiàng)目”-- “安裝向?qū)А?/p>
2）選擇菜單中 項(xiàng)目-- 添加-- 文件（這里選“創(chuàng)建用于windows應(yīng)用程序.exe你的數(shù)據(jù)庫文件”）-- 打開
3）一般會(huì)自動(dòng)將依賴項(xiàng)添加到“檢測(cè)到的依賴項(xiàng)”，如果沒有，那么我們要手動(dòng)將其加入4）
Crystal_Managed2003.msm （如果有水晶報(bào)表）
dotnetfxredist_x86.msm （.net一定是必須的）
... （如果有引用其他的dll）
4）手動(dòng)加入要包含的文件：項(xiàng)目-- 添加-- 合并模塊（添加你的程序文件） (包括dotNetFramework和MDAC27)
位于：C:\Program Files\Common Files\Merge Modules\ 下
具體功能如下：
（托管組件 MSM 處理所有托管組件的分發(fā)，其中包括 Windows 窗體查看器、Web 窗體查看器和所有 Crystal Decisions 命名空間）
* Crystal_Managed2003.msm、
Crystal_Managed2003_chs.msm、
（對(duì)于使報(bào)表運(yùn)行所需的所有其他文件，由數(shù)據(jù)庫訪問 MSM 處理其分發(fā)。其中包括數(shù)據(jù)庫、導(dǎo)出和圖表驅(qū)動(dòng)程序。）
* Crystal_Database_access2003.msm、
Crystal_Database_access2003_chs.msm、
（KeyCode MSM 處理 Crystal Decisions 密鑰號(hào)碼的安裝,注意是添加合并模塊，否則沒有“MergeMouduleProperties”屬性）
* Crystal_regwiz2003.msm、
（是vc的運(yùn)行庫，估計(jì)是Crystal Report或涉及到的某些程序是用vc寫的，所以需要它！）
VC_User_CRT71_RTL_X86_---.msm、
VC_User_STL71_RTL_X86_---.msm、
5）打開解決方案-- 右鍵點(diǎn)擊Crystal_regwiz2003.msm的屬性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（這個(gè)是你生成Crystal Report是用到的注冊(cè)號(hào)的密碼?。?/p>
6）生成解決方案（或直接按Ctrl+Shift+B）
至此整個(gè)分發(fā)程序已經(jīng)做好，再把剛才做的那個(gè)安裝程序雙擊一下……
-----------------------------------------------------------------------
打包時(shí)加入卸載功能：
方法一:
1.在打包項(xiàng)目中添加文件msiexec.exe(一般可在c:\windows\system32\下找到)
2.在文件系統(tǒng)視圖中選擇應(yīng)用程序文件夾,在msiexec.exe上按右鍵,選擇創(chuàng)建快捷方式,重命名快捷方式為 "卸載 ".
3.更改此快捷方式的Arguments 為 "/x {產(chǎn)品id} ",產(chǎn)品id的值為打包項(xiàng)目的ProductCode屬性值.
方法二:(推薦)
1.先生成安裝包，記下ProductCode,下面要用到
2.用VS.net建立一個(gè)新的控制臺(tái)程序uninst.exe文件
'power by: landlordh
'for 2000,xp,2003
Module uninstall
Sub Main()
Dim myProcess As Process = New Process
If System.Environment.OSVersion.ToString.IndexOf( "NT 5 ") Then
myProcess.Start( "msiexec ", "/X{2B65D4A9-C146-4808-AB4B-321FB0779559} ") '改為自己的ProductCode
End If
myProcess.Close()
End Sub
End Module
3.將控制臺(tái)程序BIN目錄的exe文件加入到打包程序文件中,在程序組創(chuàng)建uninst.exe的快捷方式
如果裝個(gè)ms的控件的話，則直接把framework和msac打在包里。
首先,須在項(xiàng)目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （這是EXCEL2000）
1 打開Excel： dim myexcel as new Excel.Application() myexcel.visible=true
2 添加新的工作簿： myexcel.Workbooks.add()
3 設(shè)定第二個(gè)工作表為活動(dòng)工作表： myexcel.worksheets(2).Acivate()
4 打開指定的Excel文件： myexcel.workbooks.open("c:\my.xls")
5 顯示Excel窗口： myexcel.visible=true
6 更改Excel的標(biāo)題欄： myexcel.caption="歡迎,歡迎!"
7 為Excel的單元格賦值： myexcel.cells(1,4).value=100 此語句使Excel當(dāng)前工作表的第一行第四列,即D1單元格等于100, 也可以這樣寫: myexcel.Range("D1").value=100
8 設(shè)置指定列的寬度(單位:字符個(gè)數(shù))： myexcel.ActiveSheet.colums(1).columnwidth=20 設(shè)定當(dāng)前工作表第1列的寬度為20
9 設(shè)置指定行的高度(單位:磅)： myexcel.ActiveSheet.rows(1).rowHeight=1/0.035 1磅 =0.035厘米 設(shè)置第1行的高度為1CM
10 插入分頁符： myexcel.Activesheet.rows(20).pagebreak=1 在第20行前插入分頁符
11 刪除分頁符： myexcel.Activesheet.columns(20).pagebreak=0 在第20列前刪除分頁符
12 指定邊框線的寬度： myexcel.Activesheet.range("B3:D3").borders(1).weight=3 其中borders參數(shù)指定單元格邊框的位置: 1:左 2:右 3:頂 4:底 5:斜\ 6:斜/
13 指定邊框線條的類型： myexcel.Activesheet.range("B1:D3").borders(2).linestyle=1 此語句將當(dāng)前工作表的B1:D3單元格的右邊框設(shè)置為實(shí)線 linestyle參數(shù): 1:細(xì)實(shí)線 2:細(xì)虛線 3:點(diǎn)虛線 4:雙細(xì)實(shí)線
14 設(shè)置頁腳： myexcel.activesheet.pagesetup.centerfooter="第p頁" 注意:設(shè)置頁眉頁腳時(shí)要保證計(jì)算機(jī)上裝有打印機(jī),否則出錯(cuò)!
15 設(shè)置頁眉： myexcel.activesheet.pagesetup.centerfooter="第p頁"
16 設(shè)置頁眉到頂斷距離為2cm： myexcel.Activesheet.pagesetup.Headermargin=2/0.035
17 設(shè)置頁腳到底端距離為2cm： myexcel.Activesheet.pagesetup.Footermargin=2/0.035
18 設(shè)置頂邊邊距為2cm： myexcel.Activesheet.pagesetup.topmargin=2/0.035
19 設(shè)置底邊邊距為2cm： myexcel.Activesheet.pagesetup.Bottommargin=2/0.035
20 設(shè)置左邊邊距為2cm： myexcel.Activesheet.pagesetup.Leftmargin=2/0.035
21 設(shè)置右邊邊距為2cm： myexcel.Activesheet.pagesetup.Rightmargin=2/0.035
22 設(shè)置頁面水平居中： myexcel.activesheet.pagesetup.CenterHorizontally=true
23 設(shè)置頁面垂直居中： myexcel.activesheet.pagesetup.Centervertically=true
24 設(shè)置頁面紙張大小 (1,窄行 8.5*11 ;39 ,寬行 14*11)： myexcel.activesheet.pagesetup.papersize=1
25 打印單元格網(wǎng)格線： myexcel.activesheet.pagesetup.PrintGridlines=true
26 復(fù)制整個(gè)工作表 ： myexcel.activesheet.Usedrange.Copy
27 復(fù)制指定區(qū)域 ： myexcel.activesheet.range("a1:b5").Copy
28 粘貼： myexcel.worksheets("sheet2").range("A1").PasteSpecial
29 在第2行前插入一行 ： myexcel.activesheet.rows(2).Insert
30 在第2列前插入一列 ： myexcel.Activesheet.Columns(2).Insert
31 合并 C4:D4 單元格： myexcel.Activesheet.Range("C4:D4").Merge()
32 自動(dòng)調(diào)整第2列列寬： myexcel.activesheet.Columns(2).AutoFit
33 設(shè)置字體： myexcel.Activesheet.cells(2,1).font.name="黑體"
34 設(shè)置字體大?。?myexcel.Activesheet.cells(2,1).font.size=25
35 設(shè)置字體為斜體： myexcel.Activesheet.cells(2,1).font.Italic=true
36 設(shè)置字體為粗體： myexcel.Activesheet.cells(2,1).font.Bold=true
37 清除單元格內(nèi)容： myexcel.activesheet.cells(2,1).ClearContents
38 打印預(yù)覽工作表： myexcel.Activesheet.PrintPreview
39 打印工作表： myexcel.Activesheet.Printout
40 工作表另存為： myexcel.ActiveWorkbook.saveas("C:\book2.xls")
41 放棄存盤： myexcel.ActiveWorkbook.saved=false
42 關(guān)閉工作簿： myexcel.Workbooks.close
43 退出 Excel： myexcel.quit
清楚了這些命令，操作excel不就變的很輕松了！
重慶分公司
重慶分公司
