有關vb.net 匯入 excel檔中

'專案>加入參考(請擇一)>Microsoft.Office.Interop(.NET)

'　　　　　　　　　　　Microsoft Excel 11.0 Object Library(COM)

'\/若有加入參考\/

Imports Microsoft.Office.Interop

'/\若有加入參考/\



Public Class Form1



　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

　　　　'\/若有加入參考\/

　　　　Dim myXls As New Excel.Application

　　　　'或者是(如果沒有寫第一行的 Imports)

　　　　'Dim myXls As New Microsoft.Office.Interop.Excel.Application



　　　　Dim myBooks As New Excel.Application

　　　　Dim mySht As New Excel.Worksheet

　　　　'/\若有加入參考/\



　　　　'若無加入參考\/

　　　　'Dim myXls, myBooks, mySht As Object

　　　　'myXls = CreateObject("Excel.Application")

　　　　'/\若無加入參考/\



　　　　With myXls

　　　　　　.Workbooks.Add() '建立新檔

　　　　　　'.Workbooks.Open("C:\Books.xls")'開啟舊檔(含完整路徑)

　　　　　　.Visible = True '顯示 Excel

　　　　End With

　　　　myBooks = myXls.Workbooks.Application

　　　　mySht = myBooks.Sheets("Sheet1") '取得工作表名稱

　　　　With mySht

　　　　　　.Select() '選擇工作表

　　　　　　'MsgBox(.Application.ActiveCell.Row) '顯示目前選擇儲存格的 Row

　　　　　　'MsgBox(.Application.ActiveCell.Column) '顯示目前選擇儲存格的 Column

　　　　　　.Range("A1").Value = "資料" '在 A1 儲存格輸入 資料

　　　　　　'MsgBox(.Range("A1").Value) '顯示 A1 儲存格的資料

　　　　End With

　　End Sub

End Class

我本來從沒遇到過修NAS修硬碟和隨身碟要資料救援，一開始也跟大家一樣總是問價格到處比價，因為不懂，凡事都從價格,考量，輕言聽信朋友介紹比較便宜一家，找錯家之後痛苦尾隨而來，以下省略500字........,後來自己上網找資料救援找到硬碟醫院，和他們經理溝通之後給我正確觀念，這是妳寶貴的資料，妳要考慮是救不救的回問題，而不是貴不貴問題,如果重要請找對人搶救NAS資料硬碟救援才能恢復你的NAS中多顆的硬碟資料
http://www.datamaster.com.tw/

您期待已久的 8891遊戲館 熱烈開幕囉!

8891遊樂館以優質的服務領先業界

多位美女客服24小時即時線上為您服務!

8891遊戲館有優於市面所有運動彩卷遊戲的 賠 ~ 率

以及免下載辣妹 百家樂、21點、骰寶、各國賓果、餐廳賓果、彩球遊戲

另有數百位真人視訊聊天辣妹與您進行互動聊天還有"精彩"電影喔!

心動了嗎!! 快來體驗市面上最完質最高品質的服務

現在有開放免費試玩喔! 官方 : 8891.NET

【亞洲36588合法彩券公司直營 官網: A36588.NET 】

【 最新活動→迎接新會員，首存狂送20% 】

【運動→電子→對戰→現場→彩球 】

【免費服務 →電影區、討論區、KTV歡唱、運動轉播、即時比分、24H客服 】

【亞洲36588合法彩券公司直營 官網: A36588.NET 】