重命名文件

krampaul82 · 发表于 2010-6-30 17:03:50

&书信电报；请参阅所附模块&gt
该程序将采用并创建一个新的项目目录结构，其中包含用户指定的项目名称、编号等。一旦创建了一个新项目，有时需要重新分配项目编号。有没有办法以创建文件的方式重命名这些文件&nbsp；我希望我在这里讲得有道理……
有没有办法让程序在这个msgbox之后继续运行而不点击OK？（如延迟2秒，程序将继续）

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Matt__W · 发表于 2010-7-1 08:13:33

试试这个…

copy

Sub TimedMsgBox()
    Dim cTime As Long
    Dim WSH As Object
    Set WSH = CreateObject("WScript.Shell")
    cTime = 2 ' 2 secs
    Select Case WSH.Popup("Open an Excel file?!", cTime, "Question", vbYesNo)
        Case vbOK
            MsgBox "You clicked OK"
        Case vbCancel
            MsgBox "You clicked Cancel"
        Case -1
            MsgBox "Timed out"
        Case Else
    End Select
End Sub

krampaul82 · 发表于 2010-7-1 10:15:56

Matt，
好吧，现在我学习了一种显示消息框的新方法，谢谢你的代码，但我想短暂显示一条消息，然后继续下一行代码，而用户不必点击；“OK”；这可能吗
标记

Matt__W · 发表于 2010-7-1 10:17:43

即#039；这是代码的作用；它显示msgbox 2秒钟，然后继续&nbsp；下面的行是：

copy

        Case -1
            MsgBox "Timed out"

您可以将代码放在此处继续。

krampaul82 · 发表于 2010-7-1 11:33:42

马特（Matt）
消息框无限地位于那里，它不会继续…
选择案例WSH。弹出窗口（“打开Excel文件？！”，cTime，“Question”，vbYesNo）这应该是vbok吗&nbsp&nbsp&nbsp&nbsp
；案例vbOK&nbsp&nbsp&nbsp&nbsp&nbsp；MsgBox“；您单击了“确定”
&nbsp&nbsp&nbsp；案例vbCancel&nbsp&nbsp&nbsp&nbsp&nbsp；MsgBox“；您单击了“取消”
&nbsp&nbsp&nbsp；案例1&nbsp&nbsp&nbsp&nbsp&nbsp；MsgBox“；超时“
&nbsp&nbsp&nbsp；案例Else&nbsp；结束选择标记

Matt__W · 发表于 2010-7-1 11:46:53

看起来你没有&#039；t复制整个代码块&nbsp；您刚刚发布的内容缺失

copy

    Dim cTime As Long
    Dim WSH As Object
    Set WSH = CreateObject("WScript.Shell")
    cTime = 2 ' 2 secs

krampaul82 · 发表于 2010-7-1 12:44:05

我把你的全部代码放在一个模块中，然后调用我放置msgbox代码的子模块仍然没有骰子。。。。

Matt__W · 发表于 2010-7-1 13:26:41

你能发布全部或部分代码吗&nbsp；你是用Excel还是AutoCAD？

krampaul82 · 发表于 2010-7-1 15:09:36

Matt查看发布的模块#1（有点长），但子模块；gtc_move_Excell“；呼叫#039；来自module3（已发布）的s，我现在在这里显示msgbox，我现在将在这里调用您的sub；TimedMsgBox“；相反这是可行的，我的意思是它会显示一个msgbox，但不会超时&nbsp；我想我可以跳过msgbox，悄悄地完成程序，但我想让用户知道程序在哪里

Matt__W · 发表于 2010-7-2 13:42:28

看看我扔在一起的这个样本&nbsp；运行主sub；它将提示您打开Excel文件&nbsp；唐#039；我什么都不做&nbsp；2秒后，它将通过加载用户表单（frmMain）自动继续，并显示一个进度条
而不是加载表单，你可以输入你的代码去做任何你想做的事情。

重命名文件

发表回复

精选推荐