vbnet保存文件excel

Ⅰ vb.net 2010，如何儲存結果至excel

沒有編過.net 2010。但可以根據自己經驗提供你一個思路。
1、二者的值都是可陪稿兄以用屬性取出，這個應該沒有敬陪疑問
2、用ADO對象連接上EXCEL
3、利用RECORDSET對象處蘆襲理你的數據就行了

Ⅱ vb.net2010如何把表控制項的數據保存為Excel文件

你御塵彎把那第一鎮悶段改成這樣兄碧呀？
'獲取標題
Dim Cols as integer
for Cols = 1 to DataGridView1..ColumnCount
MyExcel.Cells(1,Cols)=DataGridView1.Columns(Cols-1).HeaderText
next

Ⅲ vb.net 保存DataGridView為EXCEL文件，想存在D盤 文件名為ABC，怎麼弄啊，我現有的保存時要打開EXCEL很煩

DimMyExcelAsNewMicrosoft.Office.Interop.Excel.Application()
MyExcel.Application.Workbooks.Add()
MyExcel.Visible=false
'獲取標題
DimColsAsInteger
ForCols=1ToDataGridView1.Columns.Count
MyExcel.Cells(1,Cols)=DataGridView1.Columns(Cols-1).HeaderText
Next
'往excel表裡添加數據()
DimiAsInteger'定義行
Fori=0ToDataGridView1.RowCount-2
Dim蠢高jAsInteger銷檔激'定義列
Forj=0ToDataGridView1.ColumnCount-1
IfMe.DataGridView1(j,i).ValueIsSystem.DBNull.ValueThen
MyExcel.Cells(i+2,j+1)=""
Else
MyExcel.Cells(i+2,j+1)=DataGridView1(j,i).Value.ToString
EndIf
虧襪Nextj
Nexti
MyExcel.saveas"d:abc.xls"
MyExcel.quit

Ⅳ 將VB數據保存成excel

'並鬧菜單「工程/引用」，勾選Microsoft Excel 11庫橘含，必須的
Private Sub Timer1_Timer()

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then Set xlApp = CreateObject("Excel.Application")
On Error GoTo prcERR
Set xlBook = xlApp.Workbooks.Open("c:\1.xls") '打開你的EXCEL文件
Set xlSheet = xlBook.Worksheets(1) '第一個表格
xlSheet.Application.Visible = True '設置Excel 可見
xlSheet.Cells(2, 1) = Text1.Text '第絕伍罩2行第一列
xlBook.Save
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Exit Sub
prcERR:
Debug.Print Err.Number & ":" & Err.Description
End Sub

Private Sub Form_Load()
Timer1.Interval = 60000 '一分鍾
End Sub

Ⅳ vb.net 如何將數據保存為excel2003格式，在office2007的機器上

方法一：
保存為CSV格式文件，EXCEL可以識別並打開CSV格式文件．
方法二：
在裝有EXCEL2003的機器，生成空文件，復制纖液姿到你的毀絕計算機埋做，打開使用．

Ⅵ vb保存excel

樓主，VBA我也不是很熟，正在學

1。關於文件保存
不是可以用SaveAs
ThisWorkBook.SaveAs Filename:=ThisWorkBook.Path & "\XXX.xls"
還可以用保存副本
ThisWorkBook.SaveCopyAs ThisWorkBook.Path & "\XXX.xls"

如果你用save方法的話，
ActiveWorkBook.Save,是保存在原文件下.

注:如果您不是真的想執行保存動神棚啟作, 只想打個已保存標記(實際上不保存)，可以把工作薄的屬性saved設成ture. 這是標記已保存(實際上並沒保存)

下面那個句的意思是:
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & CStr(Val(Replace(ActiveWorkbook.FullName, ActiveWorkbook.Path & "\", "")) + 1) & ".xls"

ActiveWorkbook.SaveAs 當前活動工作另存為
ActiveWorkbook.Path 當前工作薄的完整路徑
& 文本連接符
Replace(ActiveWorkbook.FullName, ActiveWorkbook.Path & "\", "")) 將當前工作薄文件路徑和文件名字中的 "\" 去掉
Val(Replace(ActiveWorkbook.FullName, ActiveWorkbook.Path & "\", "")) + 1 當前工作薄文件路徑和文件名字中的 "\" 去掉以後，再取其中的數字並加1`
CStr(Val(Replace(ActiveWorkbook.FullName, ActiveWorkbook.Path & "\", "")) + 1) 將上邊說的加了1的數字再轉換成文本

ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & CStr(Val(Replace(ActiveWorkbook.FullName, ActiveWorkbook.Path & "\", "")) + 1) & ".xls" 整個函數的意思就是原來的工作薄的名字是個數字游如，這一句的意思就是將當工作薄按原來的路徑另存成一個文件和旅名字中數字+1的新文件.

Ⅶ vb如何保存到excel

'首先要將「工程－引用」中的Mic… Excel…選中
Private Sub Command1_Click()
Dim S() As String, i As Integer, j As Integer
Dim xlApp
Dim xlBook
Dim xlSheet
Set xlApp = CreateObject("Excel.Application") '創建EXCEL對象
xlApp.DisplayAlerts = False '不顯示對話框
Set xlBook = xlApp.Workbooks.Open("c:\1.xls") '打開已經存在的EXCEL工件簿文件
'Set xlBook = xlApp.Workbooks.open("c:\1.xls", password:="123") '打開已經存在的含有密碼的EXCEL工件簿文件
'Set xlBook = xlApp.Workbooks.Add '新建工件簿
xlApp.Visible = True '設置EXCEL對象可見（或不可見）
Set xlSheet = xlBook.Worksheets("Sheet1") '設置活動工作表
xlSheet.Cells(1, 1) = 1 '給單寬襪元格（row,col）賦值
'變數 = xlSheet.Cells(1, 1) '將單元格(row,col)中的值讀取到虛滑一個變差巧臘量
'xlSheet.Range("A1:B2").CopyPicture 1, 2 '將單元格A1至B2的內容復制到剪切板
'xlSheet.PrintOut '列印工作表
xlBook.SaveAs FileName:="c:\1.xls" '保存工作表,結束時一定別忘了保存
xlBook.Close (True) '關閉工作簿 這里的True表示退出時保存修改
xlApp.quit '結束EXCEL對象
Set xlApp = Nothing '釋放xlApp對象
End Sub

Ⅷ vb中自動保存Excel

saveas保存文件的時候，如果文件存在就會提示是廳培否覆蓋，可檔尺以在保存前刪除文件，添加的代碼如下：

If Dir("d:\temp\22.xls") <> "" Then Kill "d:\temp\22.xls"
也可以把現在代碼中saveas下面注釋的那一行交換到saveas之前，覆蓋行伏高保存

Ⅸ [vb.net] 怎麼把listview中數據 導出保存到成excel文件

我回答你的第一備做首個問題，因為後面的看不懂你的意思
函數：
Public Function ListViewtoExcel(ByVal LV As ListView) As Boolean
Try
If LV.Items.Count <= 0 Then '判斷記錄數,如果沒有記錄就退出
MessageBox.Show("沒有記錄可以導出", "沒有可以導出的項目", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return False
End If
'如果有記錄就導出到Excel
Dim AP_Excel As Object '定義Excel對象
Dim wk As Object '定義Workbook對象
AP_Excel = CreateObject("Excel.Application") '創建Excel對象
wk = AP_Excel.workbooks.add()
Dim i As Integer, u As Integer = 0, v As Integer = 0 '定義循環變數,行變數,列變數
For i = 1 To LV.Columns.Count '把表頭寫入Excel
wk.worksheets(1).cells(1, i) = LV.Columns(i - 1).Text.Trim
Next
Dim str(LV.Items.Count - 1, LV.Columns.Count - 1) '定義一個二維數組
For u = 0 To LV.Items.Count - 1 '行循環
For v = 0 To LV.Columns.Count - 1 '列循環
If v < LV.Items(u).SubItems.Count Then '仿數如果該行該列項存在
str(u, v) = LV.Items(u).SubItems(v).Text.Trim
Else '如果該行該列項不存在
str(u, v) = ""
End If
Next
Next
wk.worksheets(1).range("A2").Resize(LV.Items.Count, LV.Columns.Count).Value = str '把數組一起寫入Excel
wk.worksheets(1).Cells.EntireColumn.AutoFit() '自動調整胡舉Excel列
' yy.worksheets(1).name = LV.TopLeftHeaderCell.Value.ToString '表標題寫入作為Excel工作表名稱
AP_Excel.visible = True '設置Excel可見
wk = Nothing '銷毀組建釋放資源
AP_Excel = Nothing '銷毀組建釋放資源
Return True '返回真
Catch ex As Exception '錯誤處理
MessageBox.Show(Err.Description.ToString, "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error) '出錯提示
Return False '返回假
End Try
End Function
調用函數：如 ListViewtoExcel(Me.ListView1)