Tag: 表单

VBA拖放文件到用户窗体获取文件名和path: 我想学习一个新的技巧，但我并不是100％有信心在VBA中是可能的，但是我认为我会在这里与大师进行核对。我想要做的是避开古老的getopenfilename或浏览器窗口（在networking驱动器上设置起始目录非常困难），我想创build一个VBA用户窗体，用户可以拖动并从窗体上的桌面或浏览器窗口中删除文件，VBA将加载文件名和path。再次，我不确定这是否可能，但如果是的话，或者如果有人已经做到了，我会欣赏指针。我知道如何设置用户表单，但是除此之外我没有任何真实的代码。如果有什么我可以提供的，让我知道。感谢您的时间和考虑！

在Excel用户窗体上将点击VBA函数分配给一个dynamic创build的button: 我使用以下代码在Excel用户窗体上dynamic创buildbutton： With Me.CurrentFrame.Controls.Add("Forms.CommandButton.1") .Caption = "XYZ" .name = "AButton" .Font.Bold = True .ForeColor = &HFF& … blah blah blah End With 我想分配一个函数来运行时点击这些button，但我找不到一个简单的方法来做到这一点，因为没有属性作为button本身的一部分。有没有办法使用上述成语做到这一点？我应该以不同的方式来处理这件事吗？

Excel VBA打开工作簿，执行操作，另存为，closures: 这个问题已经被编辑，由于冗长的评论和提出的答案更新。这里要求的是模块13; Sub SaveInFormat() Application.DisplayAlerts = False Workbooks.Application.ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\jammil\Desktop\AutoFinance\ProjectControl\Data\" & Format(Date, "yyyymm") & "DB" & ".xlsx", leFormat:=51 Application.DisplayAlerts = True End Sub 还有error handling的问题，我知道我错了，但我更有兴趣修复closuresfunction，在我进入它的那一刻。这是需要一些工作的error handling代码 Sub test() Dim wk As String, yr As String, fname As String, fpath As String Dim owb As Workbook wk = ComboBox1.Value yr = ComboBox2.Value fname = […]

在我的进度条上隐藏excel vba用户窗体上的closuresbutton: 我创build了一个用户窗体，当macros仍在导入工作表时，显示一个进度条问题是用户可以按红色[X]buttonclosures并中断处理完成。有没有办法隐藏厄运的红色button，以便潜在用户在运行时不会有任何令人困惑的button点击。编辑：我已经试过了 'Find the userform's Window Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long 'Get the current window style Private Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As […]