用vba保存excel(vba 保存)

1. vba 保存

1、CurDir$是标识当前路径的函数，返回值为String类型。

激活磁盘并作为当前路径

2、ChDrive能够激活相应磁盘，并将磁盘根目录作为当前路径，即让CurDir$的返回值为被激活的磁盘根目录。如ChDrive "D"激活D盘，并将D盘根目录作为当前路径。

激活相应路径并将其作为当前路径

3、ChDir 路径（如ChDir “D:\新建 Microsoft Office Excel 工作表.xlsx”）激活相应路径，并将其作为当前路径。

彻底删除相应路径下的文件

1

Kill “D:\新建 Microsoft Office Excel 工作表.xlsx”——表示彻底删除相应文件，要删除的文件必须存在，否则会出错。

2. 如何保存vba代码

在为别人中写出一段数据进行保存，在另一个标标

3. 怎么保存vba做出来的模块

直接保存或者另存为或者复制保存

4. vba录入数据保存

Sub 新建() Dim excelApp, excelWB As Object Dim savePath As String Set excelApp = CreateObject("Excel.Application"

) Set excelWB = excelApp.Workbooks.Add excelApp.DisplayAlerts = False savePath = ActiveWorkbook.Path & "\新建表1.xls" excelWB.SaveAs savePath excelApp.Quit Workbooks.Open savePath End Sub内容复制：Workbooks("计算表.xls").Worksheets("Sheet1").Copy Before:=Workbooks("新建表1.xls").Sheets(1)把“计算表”的Sheet1整个复制到“新建表1”中，为最前面一个Sheet，默认命名将是“Sheet1(2)”，楼主可以再重新命名Sheet就行了。

5. 怎么vba保存起来每次都能使用

假设表1从A2到A102有101行数据 Submypro() DimarrA(100)AsSinglerem定义数组arrA来储存A列的数据 DimarrB(100)AsSinglerem定义数组arrB来储存将要返回到B列的数据 DimiAsInteger Fori=0To100 arrA(i)=Sheet1.Cells(i+2,1).Valuerem数组arrA赋值 Next arrB(0)=arrA(0)remB2的值等于初始值A2的值 Fori=1To100 IfarrA(i)=arrA(i-1)Then arrB(i)=arrA(i)+arrB(i-1)remA3的值等于A2，那么B3的值就等于A3+B2 Else arrB(i)=arrA(i)remA3的值不等于A2，那么B3的值就等于A3 EndIf Next Fori=0To100 Sheet1.Cells(i+2,2).Value=arrB(i)rem循环结束后一次性将结果返回到表里 EndSub

6. VBA自动保存

呵呵，这小白需求，无语。实现起来倒是很容易：每个工作表下面写这个：

Private Sub Worksheet_Change(ByVal Target As Range)ThisWorkbook.SaveEnd Sub只要有单元格被改就自动保存。总体感觉这需求毫无意义也没有必要用VBA实现。

7. vba调用存储过程

用途上看，这两款软件均是由微软出品的数据处理软件，下面为大家介绍一下两者之间的具体差异；

　　1、excelvba是一款门槛相对较低的数据分析展现工具，可以在多平台中打开并进行编辑，不过表格之间孤立，共享比较麻烦。因此Excel更适合于数据的分析，而不适合于数据的搜集和大量数据的管理；

　　2、accessvba是一个关系数据库管理系统，Access结合SQL能够进行大量数据的储存，并实现在各个对象之间实现建立关联，方便用户快速查询和调用数据。一般可以同于企业的库存，档案等资料库的共享管理，可以由多人进行共同的创建修改和查询；

　　3、不过accessvba不能用于互联网，且只能够在Windows平台上运行，而且使用的门槛相对Excel来说也是比较高，如果需要搭建好一个数据库，需要学习VBA、SQL等；

8. vba word保存

open "c:\test.txt" for output as #1 print #1,"你要保存的数据" close #1