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)