我想实现如下功能，求帮助写VBA代码

'新建一Excel文件，把代码粘进去，执行，按提示 *** 作

Sub 删除空格()

ApplicationDisplayAlerts = False

ApplicationScreenUpdating = False

BkName = ActiveWorkbookName

MsgBox "请选择 Excel文件 的路径！"

With ApplicationFileDialog(msoFileDialogFolderPicker)

AllowMultiSelect = False

Show

folderspec = SelectedItems(1)

If Right(SavePath, 1) <> "\" Then

folderspec = folderspec + "\"

End If

End With

Dim fs, f, f1, fc

Set fs = CreateObject("ScriptingFileSystemObject")

Set f = fsGetFolder(folderspec)

Set fc = fFiles

sc = 1

Dim ran As Range

For Each f1 In fc

If Right(f1Name, 3) = "xls" Then

fName = folderspec + f1Name

' sName = Left(f1Name, Len(f1Name) - 4)

WorkbooksOpen fName

For s = 1 To SheetsCount

Sheets(s)Select

Set ran = Cells(1, 1)CurrentRegion

Row = ranRowsCount

col = ranColumnsCount

For r = 1 To Row

For c = 1 To col

Cells(r, c) = Trim(Cells(r, c))

Next c

Next r

Next s

ActiveWorkbookSave

ActiveWorkbookClose

End If

Next

ApplicationDisplayAlerts = True

ApplicationScreenUpdating = True

MsgBox "空格删除完毕！"

End Sub

VBA调用子程序时，如果不带参数，

直接写sub过程名，或者Call sub名称即可。

如果需要传递参数：

同样可以使用Call：

例如：

Call PicInComment(1, 250)

参数写在后面，不带括号：

例如：

PicInComment 1, 250

也可以赋值给其他变量：

例如：

result = PicInComment(1, 250)

要先创建一个testxls

Sub Btn1_onclick()

call OpenWorkbook("Testxls")

End Sub

Sub OpenWorkbook(strLocation)

Set objExcel = CreateObject("ExcelApplication")

objExcelWorkbooksOpen strLocation

objExcelVisible = true

objExcelWindowState = xlMinimized

objExcelWindowState = vbMaximizedFocus

objExcelWindowState = vbMaximized

objExcelUserControl = true

End Sub

Visual Basic是一种由 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

以上就是关于我想实现如下功能，求帮助写VBA代码全部的内容，包括:我想实现如下功能，求帮助写VBA代码、excel vba Call 引用过程、如何用vb调用excel vba程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！