我会尽力在描述中尽可能清晰,所以这里什么都没有:
我创建了一个代码,用户在其中选择他的 Excel 文件,然后宏将 Sheet
从该文件复制到我的宏 Workbook
中。
MyFile = Application.GetOpenFilename()
Workbooks.Open (MyFile)
ActiveSheet.Copy After:=wbook.Sheets(1)
ActiveSheet.Name = "Selected file"
Workbooks.Open (MyFile)
ActiveWorkbook.Close SaveChanges:=False
这是有效的,但我意识到,有时所选文件可能有多个工作表
。
有没有一种方法可以编写宏,如果我选择的文件有一张工作表,它会运行上面的代码,如果它有多个工作表,让我选择我想要的工作表,然后运行其余的代码?
最佳答案
编辑:
这只是我偶尔使用的基本暂停例程的扩展。
这是我的“常规”Pause
例程(使用 Timer
function):
Sub Pause(seconds As Single)
Dim startTime As Single
startTime = Timer 'get current timer count
Do
DoEvents 'let Windows "catch up"
Loop Until Timer > startTime + seconds 'repeat until time's up
End Sub
...所以,它给了我一个想法。
老实说,我有点惊讶地发现这有效,因为它基本上同时运行两段代码。
<小时/>代码 WaitForUserActivity
:
这是我在上面的演示中使用的代码:
Option Explicit
Public isPaused As Boolean
Sub WaitForUserActivity() 'THE 'RUN DEMO' BUTTON runs this sub.
Dim origSheet As String
isPaused = True 'flag "pause mode" as "on"
origSheet = ActiveSheet.Name 'remember current worksheet name
MsgBox "This will 'pause' code execution until you" & vbLf & _
"click the 'Continue' button, or select a different a worksheet."
Application.StatusBar = "PAUSED: Click ""Continue"", or select a worksheet."
Do 'wait for button click or ws change
DoEvents 'yield execution so that the OS can process other events
Loop Until (Not isPaused) Or (ActiveSheet.Name <> origSheet)
If isPaused Then 'the active worksheet was changed
MsgBox "Worksheet '" & ActiveSheet.Name & "' was selected." _
& vbLf & vbLf & "Now the program can continue..."
Else 'the button was clicked
MsgBox "The 'Continue' button was clicked." _
& vbLf & vbLf & "Now the program can continue..."
End If
Application.StatusBar = "Ready"
End Sub
Sub btnContinue() 'THE 'CONTINUE' BUTTON runs this sub.
isPaused = False 'flag "pause mode" as "off"
End Sub
运行演示:
- 将上述代码放入常规模块
- 确保工作簿至少有两个工作表
- 创建两个命令按钮:
- 一个用于“运行演示”按钮,指定宏:
WaitForUserActivity
- 一个用于“继续”按钮,指定宏:
btnContinue
- 一个用于“运行演示”按钮,指定宏:
- 点击“运行演示”按钮
代码中的关键命令是 DoEvents
Function ,它“让出执行,以便操作系统可以处理其他事件。”
<小时/> <小时/>
DoEvents
passes control to the operating system. Control is returned after the operating system has finished processing the events in its queue and all keys in the SendKeys queue have been sent.
DoEvents
is most useful for simple things like allowing a user to cancel a process after it has started, for example a search for a file. For long-running processes, yielding the processor is better accomplished by using a Timer or delegating the task to anActiveX
EXE
component - and the operating system takes care of multitasking and time slicing.Any time you temporarily yield the processor within an event procedure, make sure the procedure is not executed again from a different part of your code before the first call returns; this could cause unpredictable results.
Further details (and warnings) at the source.
原始答案:
一些建议的解决方案:
您可以提示用户指定哪个工作表,而不是“停止”代码。
您可以通过简单的计时器循环来“暂停”执行,为用户提供一定的时间来选择工作表,您甚至可以检查工作表名称以查看用户是否选择了新的工作表,如下所示:
Dim startTime As Single, shtName As String If ThisWorkbook.Worksheets.Count = 1 Then MsgBox "There is only one worksheet in this workbook." Else shtName = ActiveSheet.Name 'get name of active sheet MsgBox "You have 5 seconds to select a worksheet after clicking OK.", _ vbOKOnly + vbInformation, "Select a worksheet... fast!" startTime = Timer Do DoEvents Loop Until Timer > startTime + 5 'check if user picked a new worksheet If ActiveSheet.Name = shtName Then MsgBox "You didn't select a new worksheet!" Else MsgBox "Thanks for selecting a new worksheet!" End If End If
这有点做作,但可以工作,特别是如果进行适当的检查以确保您现在拥有正确的工作表。
我想您可以创建一个工作表事件过程,该过程将在激活工作表时运行,并检查全局变量以查看您的“导入过程”是否 正在运行,如果是这样,恢复您的代码...但这会很困惑且令人困惑,并且需要代码存在于您正在“导入”的工作簿中。
里>或者,比其中任何一个都更好是根据工作表的内容以编程方式/逻辑地确定您需要哪个工作表。有标题吗?某个日期?也许是最新的工作表?某个细胞里有什么东西?一定有一些东西与其他的不同。
希望这能为您提供一些关于非线性解决方案的想法。 😉
关于vba - 你能中断vba代码来选择工作表吗?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/52531785/