VB读取excel修改并保存最简单的实现方法

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