编写VBA代码,该代码将一个UserForm文件的一个Excel文件调用到一个名为john的文件夹中的所有其他Excel文件,主Excel (由以下代码和用户表单组成)位于不同的位置:
Private Sub Workbook_OnClick()
Dim mypath As String
Dim file As String
Dim wb As Workbook
Dim pat As String
Application.ScreenUpdating = False
ChDrive "C:"
ChDir "
我想使用excel中的vb脚本调用一个java jar文件。我的文件格式是"xlsm“,这里是我的vb脚本代码。
当我执行我的代码时,控制台就会来来去去,我不会在控制台上写什么。请看一下密码
Public Function RunProgram( _
program As String, _
Optional command As String = "" _
) As WshExec
Dim wsh As New WshShell
Dim exec As WshExec
Dim oShell
Application.ScreenUpdating = False
Set
这里的新手,通常在尝试和错误中找到自己的方向,但在这里遇到困难。
我有一个循环,它遍历文件夹中的文件,并将数据从每个文件复制到一个主文件中。
由于每个文件都是工作文档,有可能会有另一个用户打开其中一个文件,所以当文件为只读时,我正试图否定该文件。
我试过了一个文件器,不知道我是不是抓住它了!
Sub Pull_Decisions()
Dim x As Workbook, y As Workbook
Dim folderPath As String, path As String
Dim StartTime As Double, SecondsElapsed As Double
Dim fil
Excel的打印功能(使用VBA)非常慢。我希望有人有一种方法可以加快打印速度(不使用Excel 4宏技巧)。下面是我现在是怎么做的:
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
-various setup statements which I've already minimized-
End With
ActiveSheet.PrintOut
Application.ScreenUpdating = True
我不是经验丰富的VBA程序员,我需要社区来寻找Excel的问题。
我的问题是,在Excel中,代码在下面一行之后立即停止执行:Application.ScreenUpdating = True
我使用来自msdn网站的以下示例代码:
Dim elapsedTime(2)
Application.ScreenUpdating = True
For i = 1 To 2
If i = 2 Then Application.ScreenUpdating = False
startTime = Time
Worksheets("Sheet1").Act
我使用的是Excel 2013 vba。我有两个表单: frmMain和。在frmMain中,我只有一个代码为UserForm1.show的命令按钮,但是我无法打开UserForm1。
下面是我的代码:
Private Sub Workbook_Open()
Application.Visible = False 'This code hides the workbook
UserForm1.Show 'Brings the UserForm
End Sub
'Module1代码..
Sub hidden()
Sheet1
我有这段vba代码,其中有一个用户表单。现在我想启动用户表单,在那里人们看不到工作表。
我在代码中添加了以下内容:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True End Sub
然后在"ThisWorkbook;我添加了以下内容:
Private Sub Wo
早上好伙计们
我在找到一个VBA代码以将工作表从多个excel文件合并到一个excel文件时遇到了问题。我得到了以下VBA代码:
Sub MergeExcelFiles()
Dim fnameList, fnameCurFile As Variant
Dim countFiles, countSheets As Integer
Dim wksCurSheet As Worksheet
Dim wbkCurBook, wbkSrcBook As Workbook
fnameList = Application.GetOpenFilename(FileFilter:="Microsoft
我目前有一个从网站复制到我的excel文件中的VBA代码,用于清除活动工作表中的所有复选框。但是,如果未选中这些复选框,则应在未选中复选框时清除某些单元格内容的公式(通过VBA完成)将不起作用。例如:我设置了VBA公式,以便在选中复选框1时,某个单元格的值将更改以反映某些信息,并且VBA代码还会在取消选中该复选框时使单元格内容清晰。以下代码的问题是,当它运行时(它确实成功地取消选中了复选框),连接到这些复选框的单元格的值不会像取消选中复选框时应该清除的那样清除。代码如下:
Sub ClearCheckBoxes()
'Updateby Extendoffice 20161129
Dim
所有PDF文件都是用正确的名称在正确的位置创建和保存的,但是当我试图打开PDF时,我会收到一条消息,因为文件损坏了,所以它无法工作,您能帮我打开这个文件吗?
提前谢谢。
我的剧本:
Sub SerienbriefOneDoc()
'
' SerienbriefOneDoc Makro
'
'
Dim Dateiname As String
Dim LetzterRec As Long
Application.ScreenUpdating = False
Application.Visible = False
Const path As Str
我们已经尝试了几天来解决这些问题,我们在另一个论坛上发表了帖子,但仍然没有答案,也许你们可以在这里帮助我们。
我有一个问题,在用户表单关闭后excel运行,我想我应该结束应用程序,但它没有,它保持excel在后台运行,我必须结束与任务管理器的进程。我创建了一个vba文件,用于将一个文件复制到temp文件夹,并运行一个打开excel和userform的宏。任何帮助都是非常感谢的。
这是复制并打开宏的vba脚本:
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFi
这里出类拔萃。我正在尝试一个非常简单的任务:复制和粘贴单元格。一旦VBA运行,Excel将进入“无响应”。代码一度在运行,但随着我开发了更多的行,Excel停止了响应。我注释掉行的其余部分,只运行下面所示的行,Excel仍然挂起。有什么想法吗?谢谢!
此外,我正在用Excel在模块中编写代码。
Sub EDRII()
Application.ScreenUpdating = False
Dim EDR As Worksheet, Lookup As Worksheet, FA As Worksheet
Set EDR = Sheets("for edr II")
Set Lo
我想使用VBA代码从内部访问关闭Excel工作簿。下面的代码打开工作簿并正确运行工作簿中的VBA模块。关闭工作簿提示使用我希望避免的标准保存对话框。
我尝试将语句.Workbooks.Close修改为.Workbooks.Close SaveChanges:=True,但这实际上会导致代码崩溃。
Public Function Open_Share_Price_Excel()
' Change Cursor to Hourglass
Screen.MousePointer = 11
Dim Expath, ModName As String
Dim XLApp As Object
我试图在一个长脚本中隐藏Excel,在这个脚本中我做了一些网络抓取。我能够很好地隐藏应用程序,问题是当我将.Visible改为True时,我将得到1到2个额外的应用程序(只是空的Excel )。我猜其中一个是我的PERSONAL.xlsb工作簿,但我不知道另一个是什么-有时我得到一个额外的,有时我得到两个。关闭这些shell文件的唯一方法是通过任务管理器结束EXCEL.EXE进程。
我也尝试过只隐藏主窗口(Windows(1)),但没有效果(它只是隐藏工作簿,而不是应用程序):
Sub Test()
Windows(ThisWorkbook.Name).Visible = False
Ap
我熟悉隐藏工作表和防止用户解除隐藏;但是,是否有一种方法可以使用VBA使workbook/window非常隐藏,或者至少需要一个密码才能解除隐藏?
对于我的情况,我必须打开工作簿,但对用户隐藏。我之所以问这个问题,是因为我注意到,虽然我用密码隐藏和保护了我的工作簿,但我仍然可以将它从任何其他打开的工作簿中解开。
Sub hideWorkbook()
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Workbooks.Open ThisWorkbook.FullName 'Assign
我正在寻找一个VBA脚本,比较列D上的workbook1与列A上的workbook2。如果匹配,我希望将workbook2列G中的数据复制到woksbook1列E中。
我找到了这个脚本:
Sub UpdateW2()
Dim w1 As Worksheet, w2 As Worksheet
Dim c As Range, FR As Long
Application.ScreenUpdating = False
Set w1 = Workbooks("Excel VBA Test.xlsm").Worksheets("Blad1")
Set w2 = Wo
我有以下代码,可以打开/保存/关闭文件夹中的任何/所有工作簿。它的工作很好,但是,我也需要它包括子文件夹。如果可能,代码需要在不限制文件夹、子文件夹和文件数量的情况下工作。 我正在使用Excel2010,我是VBA的新手-非常感谢任何人的帮助! Sub File_Loop_Example()
'Excel VBA code to loop through files in a folder with Excel VBA
Dim MyFolder As String, MyFile As String
'Opens a file dialog box
是否有更快的方法将列从特定的excel文件中导入为具有VBA?的数组?
我目前使用的代码必须打开excel文件。有什么办法在幕后做到这一点吗?是否有从第一列中逐行读取值的方法?
谢谢
我的代码如下:
Sub LoadExcelArray()
Dim Vendor As Variant
Dim wb As Workbook
Dim sFile As String
sFile = "D:\Desktop\test.xlsx"
Application.ScreenUpdating = False
Set wb = Application.Workbooks.Open(sFile
在Access中通过VBA代码打开并关闭excel文件后,我不会返回数据库,而是返回另一个打开的窗口(可能是上次访问的窗口?) 尝试了Docmd函数的几个变体,但都没有用 Public Function Open_Share_Price_Excel()
' Change Cursor to Hourglass
DoCmd.Hourglass (True)
Dim Expath As String
Dim ModName As String
Dim XLApp As Object
Set XLApp = CreateObject("Excel.Application&
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim currentWorkbook As Excel.Workbook
Dim otherWorkbook As Excel.Workbook
Dim workbookName As Variant
Set currentWorkbook = ActiveWorkbook
workbookName = Application.GetOpenFilename(workbook
我正在尝试从word文件中的特定表格的单元格中生成一个包含5列的excel文件(从word表格复制到excel)。我的word文件有280个表格。对要从word文件中复制的单元格进行寻址没有任何问题。但是我不知道为什么结果是一个空白的excel文件。也许我在粘贴方法上是错的,呃,我不知道...。这是我的代码:
Sub copyfromwordtoexcel()
Dim exApp As Excel.Application
Dim exDoc As Excel.Workbook
Set exApp = CreateObject("Excel.Application
这个宏应该在excel文档的列表中打开多个超级链接的CAD文件。我必须使用这个列表(使用excel单元,而不是下拉列表)作为我们的基础设施。
在满足第一个实例并打开第一个文件后,代码将停止。我认为这是因为当打开一个非office应用程序时,宏会停止,因为excel在这一点上不是活动应用程序。
Sub OpenCadFiles()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim excel As Workbook
Set excel = ActiveWorkbook
Dim