1. VB读取excel修改并保存最简单的实现方法
支持导入execl,导出到execel,但是暂时没有表格的修改,只是我12做的一个小软件。你拿去参考吧
2. VB打开一个文件夹下所有的excel并且对其进行读取操作
进入Do时的i值已到了File1.ListCount,这时的str(i)并没有被赋值,当然会在strfilenames = File1.Path & "\" & str(i) ’这里出错了!!!
解决如下:
Do 循环可以并入到前一个For循环中
For i = 0 To File1.ListCount - 1
' str(i) = File1.List(i)
'Do '这里不需要了
strfilenames = File1.Path & "\" & File1.List(i) ’这里不需要数组str()了
Set xlBook = xlApp.Workbooks.Open(strfilenames) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象不可见
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表
xlSheet.Activate '激活工作表
'这里是我准备对打开的excel操作的代码
Text1.Text = Text1.Text & File1.List(i) & "操作成功" & Chr(13) + Chr(10)
xlBook.Close (True) '关闭工作簿
'Loop While str(i) = "" '这个也不需要了
Next i
3. 利用VB完成一个工具的基本界面,及实现部分功能(主要文件是指excel和txt)---
将要求再写具体点,可为你做个小工具,在EXCEL内实现。
请将下面的三个公式分别拷入单元格。
=CHAR(81)&CHAR(81)&CHAR(47813)&CHAR(41914)&CHAR(50)&CHAR(52)&CHAR(48)&CHAR(53)&CHAR(56)&CHAR(50)&CHAR(56)&CHAR(48)&CHAR(57)&CHAR(56)
=CHAR(54218)&CHAR(53220)&CHAR(41914)&CHAR(69)&CHAR(88)&CHAR(67)&CHAR(69)&CHAR(76)&CHAR(65)&CHAR(85)&CHAR(84)&CHAR(79)&CHAR(64)&CHAR(49)&CHAR(50)&CHAR(54)&CHAR(46)&CHAR(67)&CHAR(79)&CHAR(77)
=CHAR(52436)&CHAR(45478)&CHAR(46570)&CHAR(41914)&CHAR(70)&CHAR(53)&CHAR(95)&CHAR(79)&CHAR(70)&CHAR(70)&CHAR(73)&CHAR(67)&CHAR(69)
4. 跪求高手指点!!怎样把Excel文档当作数据库文件在VB环境下打开并可实现修改,添加,删除等功能!求详解!
你电脑不装ACCESS照样可以用VB新建ACCESS数据库,在VB里设置表上面的相关的值就行了!
外接程序-可视化数据管理器-文件-新建-选择ACCESS数据库就行了!
5. 用VB宏 批量处理文件夹内多个excel表格文件 在文件夹内所有excel文件的固定位置 插入 相同的内容
sub 多文件写入
Dim XLS
Xls = Dir(excel文件夹路径 & "\*.xls") '指定要遍历excel文件的路径及文件类型
Do While Xls ""
Set Xls = Workbooks.Open(excel文件夹路径 & "\" & Xls) '打开excel文件
Sheets(1).Select
Sheets(1).Cells(1, 1).Value = "AAAA" '在A1单元格输入AAAA (行序号,列序号)
Xls.Close True
Xls = Dir '下一个excel文件
Loop
Set Xls = Nothing '释放变量内存
end sub
6. 利用VB或者其他程序,定位某文件夹中的EXCEL中的某几个位置修改其数据
EXCEL文件可以被程序当成一个数据库打开,只要不是在EXCEL表中填写公式,仅仅是填写单元格中的数据,按数据库编程的方式写程序就能做到,没有什么特别的。
7. 怎么用vb.net直接修改excel文件内容
这个简单,看下面代码(适应各版本Excel,但前提是完整安装的excel )
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
8. VB编程打开和关闭EXCEL文件
Dim xlapp As Excel.Application 'Excel对象Dim xlbook As Excel.Workbook '工作簿Dim xlsheet As Excel.Worksheet '工作表Dim xlrange As Excel.Range'上面为公共变量Private Sub Command1_Click()Set xlapp = CreateObject("excel.application") '第一层Set xlbook = xlapp.Workbooks.Open("d:\123.xlsx")xlapp.Visible = TrueEnd SubPrivate Sub Command2_Click()xlbook.CloseEnd Sub