怎么用vb.net直接修改excel文件內容

這個簡單，看下面代碼（適應各版本Excel，但前提是完整安裝的excel )

站在用戶的角度思考問題，與客戶深入溝通，找到桂平網站設計與桂平網站推廣的解決方案，憑借多年的經驗，讓設計與互聯(lián)網技術結合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：成都做網站、成都網站建設、企業(yè)官網、英文網站、手機端網站、網站推廣、主機域名、雅安服務器托管、企業(yè)郵箱。業(yè)務覆蓋桂平地區(qū)。

Try

Dim?excelObj?As?Object?=?GetObject(,?"Excel.Application")

If?excelObj.Workbooks.Count?=?0?Then?'注意，如果是新建未保存的工作簿不算打開

MsgBox("沒有工作簿打開")

excelObj?=?Nothing

Exit?Sub

End?If

excelObj.Workbooks(1).Worksheets(1).Range("A1").Value?=?"123"?'表示把已經打開的第一個工作簿的第一個工作表的A1單元格賦值為“123”

excelObj?=?Nothing

Catch?ex?As?Exception

MsgBox(ex.Message)

End?Try

vb.net獲取excel頁面高度

1 打開Excel dim myexcelas new Excel.Application() myexcel.visible=true

2 添加新的工作簿myexcel.Workbooks.add()

3 設定第二個工作表為活動工作表myexcel.worksheets(2).Acivate()

4 打開指定的Excel文件myexcel.workbooks.open(“c:\my.xls”)

5 顯示Excel窗口myexcel.visible=true

6 更改Excel的標題欄myexcel.caption=“歡迎,歡迎!”

7 為Excel的單元格賦值myexcel.cells(1,4).value=100 此語句使Excel當前工作表的第一行第四列,即D1單元格等于100, 也可以這樣寫: myexcel.Range(“D1”).value=100

8 設置指定列的寬度(單位:字符個數)myexcel.ActiveSheet.colums(1).columnwidth=20 設定當前工作表第1列的寬度為20

9 設置指定行的高(單位:磅)myexcel.ActiveSheet.rows(1).rowHeight=1/0.035 1磅 =0.035厘米設置第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參數指定單元格邊框的位置:1:左 2:右 3:頂 4:底 5:斜\ 6:斜/

13 指定邊框線條的類型 myexcel.Activesheet.range(“B1:D3”).borders(2).linestyle=1此語句將當前工作表的B1:D3單元格的右邊框設置為實線 linestyle參數: 1:細實線 2:細虛線 3:點虛線 4:雙細實線

14 設置頁腳myexcel.activesheet.pagesetup.centerfooter=“第p頁” 注意:設置頁眉頁腳時要保證計算機上裝有打印機,否則出錯!

15 設置頁眉myexcel.activesheet.pagesetup.centerfooter=“第p頁”

16 設置頁眉到頂斷距離為2cmmyexcel.Activesheet.pagesetup.Headermargin=2/0.035

17 設置頁腳到底端距離為2cmmyexcel.Activesheet.pagesetup.Footermargin=2/0.035

18 設置頂邊邊距為2cmmyexcel.Activesheet.pagesetup.topmargin=2/0.035

19 設置底邊邊距為2cmmyexcel.Activesheet.pagesetup.Bottommargin=2/0.035

20 設置左邊邊距為2cmmyexcel.Activesheet.pagesetup.Leftmargin=2/0.035

21 設置右邊邊距為2cmmyexcel.Activesheet.pagesetup.Rightmargin=2/0.035

22 設置頁面水平居中myexcel.activesheet.pagesetup.CenterHorizontally=true

23 設置頁面垂直居中myexcel.activesheet.pagesetup.Centervertically=true

24 設置頁面紙張大小 (1,窄行8.511 ;39 ,寬行1411) myexcel.activesheet.pagesetup.papersize=1

25 打印單元格網格線 myexcel.activesheet.pagesetup.PrintGridlines=true

26 復制整個工作表 myexcel.activesheet.Usedrange.Copy

27 復制指定區(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 自動調整第2列列寬 myexcel.activesheet.Columns(2).AutoFit

33 設置字體myexcel.Activesheet.cells(2,1).font.name=“黑體”

34 設置字體大小myexcel.Activesheet.cells(2,1).font.size=25

35 設置字體為斜體 myexcel.Activesheet.cells(2,1).font.Italic=true

36 設置字體為粗體 myexcel.Activesheet.cells(2,1).font.Bold=true

37 清除單元格內容myexcel.activesheet.cells(2,1).ClearContents

38 打印預覽工作表myexcel.Activesheet.PrintPreview

39 打印工作表 myexcel.Activesheet.Printout

40 工作表另存為myexcel.ActiveWorkbook.saveas(“C:\book2.xls”)

41 放棄存盤 myexcel.ActiveWorkbook.saved=false

42 關閉工作簿 myexcel.Workbooks.close

43 退出 Excel myexcel.quit

44 紙張橫向：myexcel.activesheet.PageSetup.OrientaTion=2（1縱向）

45 單元格居中：cells(2,1).HorizontalAlignment=Excel.XlHAlign.xlHAlignCenter 水平方向cells(2,1).VerticalAlignment=Excel.XlVAlign.xlVAlignCenter 垂直方向

打開CSDN APP，看更多技術內容

VB調用Excel軟件實現(xiàn)打印預覽功能

摘要:VB源碼,報表打印,打印預覽VB調用Excel軟件實現(xiàn)打印預覽功能，可以插入折線圖，VB打印預覽功能示例源碼，分享給大家參考。

用vb操作EXCEL打印報表

最近使用vb來打印報表,打印出來的EXCEL一直無法上傳到ftp 反復多次問題都沒解決, 200 PORT command successful. Consider using PASV. 問題出在這,由于win10的防火墻的原因,關閉防火墻后問題得到解決. 轉載于:...

繼續(xù)訪問

VB操作excel 格式設置及打印頁面設置（精簡）

langue：VB Set ExcelApp = CreateObject("Excel.Application") ’創(chuàng)建資源，建立連接 Set ExcelBook = ExcelApp.Workbooks.Open(“d:\pipo\index.htm") Set ExcelSheet = ExcelBook.Worksheet...

繼續(xù)訪問

vb.net excel操作：填充人事檔案表并打印

節(jié)選自：《Visual Basic.Net 循序漸進》【例 21.7】【項目：code21-007】填充人事檔案表并打印。 本例使用到的Excel文件為：職員信息登記表.xlsx，如下圖所示： 圖21-10 職員信息登記表 窗體設計如下圖所示（注意：為了演示方便，已經填充了數據）： 圖21-11 窗體設計 在本例中還需要掌握的知識： 1、插入圖片到指定位置 Worksheet.Shapes.AddPicture(Filename, LinkToFile, SaveWithDocumen

繼續(xù)訪問

vb.net操作Excel常用命令

轉載: 首先,須在項目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （這是EXCEL2000） 1 打開Excel： dim myexcel as new Excel.Application() myexcel.visib...

繼續(xù)訪問

vb.net 如何實現(xiàn)報表打印_Excel如何實現(xiàn)分類別打??？創(chuàng)建組輕松實現(xiàn)

有朋友咨詢個關于Excel打印數據問題，他的需求是這樣的：下表中是某公司人員信息表，現(xiàn)在領導要求將表格分部門打印出來，每位員工核對個人信息并簽字。需求很明確，就是將相同部門的人員打印到一張紙上。打印很簡單，難點在于如何按每個部門去打?。咳绻块T較少的話可以將不同部門復制到不同插頁中，再進行打?。坏侨绻块T較多的話，這種辦法實在不可??；有小伙伴表示可以利用VBA技術將部門拆分到各個插頁，在進行打印...

繼續(xù)訪問

最新發(fā)布 vb.net 教程 11-1 打印組件 3 PageSetupDialog

版權聲明：本文為博主原創(chuàng)文章，轉載請在顯著位置標明本文出處以及作者網名，未經作者允許不得用于商業(yè)目的。 本節(jié)談談另外一個有關打印的對話框：PageSetupDialog，頁面設置對話框 實際我們是通過這個對話框獲得PageSetting，關于PageSetting在上一節(jié)有部分介紹，請參看 vb.net 教程 11-1 打印組件 PrintDialog 2 注意的是，使用PageSetupDialog需要綁定一個PrintDocument，在PageSetupDialog的Document屬性處

繼續(xù)訪問

VB.NET使用EXCEL常見操作

首先,須在項目里引用: 添加引用Microsoft.Office.Interop.Excel Imports Excel = Microsoft.Office.Interop.Excel 1 打開Excel： Dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿： myexcel.Workbooks.ad

繼續(xù)訪問

【VB Excel】VB 操作Excel基本步驟

VB操作EXCEL,實現(xiàn)數據讀取 1、定義Excel操作變量 Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.Worksheet 2、打開Excel進程，并打開目標Exc...

繼續(xù)訪問

vba代碼編程800例_如何設置Excel打印格式，學會這個VBA對象就可以隨心所欲

NO.1 Excel如何設置打印格式使用vba可以做打印格式處理，如何做一個漂亮的打印頁面，不外乎要設置打印表格的邊框、版式、頁眉、頁角等等。那么怎樣設置這些格式呢？NO.2 PageSetup對象vba編程用到Pagesetup對象，對表格打印進行設置。PageSetup對象有許多屬性，下面圖片里列出了大部分常用的屬性，可以對照進行設置。具體方法下面舉個例子來展示一下最終效果。PageSetup...

繼續(xù)訪問

vb.net操作excel文件

[轉自] vb.net操作excel文件 要求將數據顯示在Excel表中，并且要設好數據格式。雖說如此，真正實現(xiàn)了自己的功能，還是費了不少時間。相信還是有很多與我相似的人需要實現(xiàn)這種功能。那就做個小結吧。不妥之處，請指正哦。 1.添加引用–com—microsoft excel 11.0 object library 2在需要訪問excel的過程中定義 dim exapp as excel.a

繼續(xù)訪問

VB.net使用PrintForm打印窗體

在VS2010中內置了了一個PowerPacks的擴展包,果然很好用啊,可以直接打印窗體內容 先從"工具箱"中拖一個PrintForm到設計好的窗體中 然后在窗體里加了個打印的按鈕,對應代碼如下 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.

繼續(xù)訪問

熱門推薦 開源:.NET環(huán)境下有關打印頁面設置、打印機設置、打印預覽對話框的實現(xiàn)與應用(2)

!--google_ad_client = "pub-0022674553583619";google_ad_width = 728;google_ad_height = 90;google_ad_format = "728x90_as";google_ad_type = "text_image";google_ad_channel ="";google_color_

繼續(xù)訪問

vb.net 設置打印紙張與頁邊距_機關公文格式設置規(guī)范(最新整理版)

本方法根據《黨政機關公文格式國家標準》(GB/T9704-2012)制定。具體內容如下：一、辦公軟件要求適用于微軟OFFICE—WORD文字處理軟件。二、頁面設置1.選擇“文件”——“頁面設置”選擇“頁邊距”附簽，上：3.7厘米，下：3.5厘米，左：2.8厘米，右：2.6厘米。2.選擇“紙張”附簽，“紙張大小”設成“A4”。3.選擇“版式”附簽，將“頁眉和頁腳”設置成“奇偶頁不同”,在該...

繼續(xù)訪問

VB.NET EXCEL 操作

怎樣將文本文件轉存為XLS文件？用VB.NET.

這個轉換說的太泛了，要根據文本文件里面具體的格式，以及轉換前后具體的對應關系來看。如果，僅僅是*.txt改*.xls,直接修改文件名就可以了。

vb.net操作excel表的問題 xlbook = xlApp.Workbooks.Open(Application.StartupPath &“\”

Excel程序關閉了，表格當然隨之關閉。 先打印，在關閉xlapp。

記得采納啊

VB.NET 控制EXCEL中的某幾個sheet 到另外一個新的EXCEL文檔中，并保存為單獨文件。有EXCEL 類。求豐滿

提供一段VBA代碼供參考

作用是，保存當前工作簿的sheet，在當前文件夾下，單獨另存為xls文件

VB.NET與VBA有一些差別，自己調試一下改改。

Dim?TPath?As?String,?XSheet?As?Worksheet?

TPath?=?ActiveWorkbook.Path?

For?Each?XSheet?In?ActiveWorkbook.sheets?

XSheet.Copy?

ActiveWorkbook.SaveAs?Filename:=TPath??"\"??ActiveSheet.Name??".xls"?

ActiveWindow.Close?

Next

vn.net怎么設計excel中可以用的函數

1、首先vb.net中使用excel函數做個簡單示例在程序的同一目錄下做個book1xls。

2、其次并放些數據示例的功能是把abd列的第1行到100行的數據匯總在第101行你測試一下。

3、最后在vb.net中使用excel函數即可設計excel中可以用的函數。