在excel中保存vba中宏代码(怎么vba保存起来每次都能使用)

1. 怎么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

2. vba保存文件到指定路径

文件另存为，然后一起压缩，右键压缩就行了

3. vba保存为xls

下面的代码是导入指定工作薄的所有工作表Sub 导入()drfile = InputBox("请输入要导入的excel文件名(不包含扩展名):", "输入")drfile = drfile & ".xls"Workbooks.Open ThisWorkbook.Path & "\" & drfiledrcount = Workbooks(drfile).Sheets.CountFor i = 1 To drcountWith Workbooks(drfile).Sheets(i).Copy after:=ThisWorkbook.Sheets(Sheets.Count)End WithNextWorkbooks(drfile).Close FalseEnd Sub

4. vba保存文件代码

方法/步骤如下

1

我们在D盘下的test文件夹新建了一个test.xlsx文件，并在文件中的工作表中A1单元格输入一些信息。

2

保存并关闭上面新建的文件，在另外一个Excel文件中打开Visual Basic，添加模块和过程。

3

在过程中输入打开文件的代码：

Workbooks.Open：在Workbooks表示文件，Open是打开的动作。

如果仅执行以上代码，会报错。

4

因此，打开文件夹的动作后面需要加上必要的参数：

Filename:="D:\test\test.xlsx"：找到D盘test文件夹下的文件。

5

执行以上代码后，就可以打开文件test.xlsx。

6

打开文件后，我们对文件做一些数据操作，如在A2单元格输入Hi World!

代码ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!"：当前活跃的文件下的第一张工作表下的A2单元格输入信息。

7

再次执行以上代码后，可以看到文件内容已更新

5. vba保存到当前位置

答解决方法/步骤如下

1.出现对话框，点击否。

2.选择Excel保存的类型，点击Excel启用宏的工作簿.xlsm。

3.打开Excel，点击开发工具——宏，这时就能发现ExcelVBA被保存了。

4.点击执行，就能执行你录制的宏代码了。

5.当然你也可以通过文件——另存为——文件格式为启用宏的工作簿.xlsm。