Tag: 自动部署

通过电子邮件在Excel / Outlook中select范围

我有以下代码（ Ron de Bruin提供 ），并试图弄清楚如何自定义它以供我自己使用。 当我运行代码时，没有任何反应（因为error handling程序停止错误“下标超出范围”的macros） 但是，当我改变线： ActiveWorkbook.EnvelopeVisible = False 至： ActiveWorkbook.EnvelopeVisible = True 可见的信封允许我做出select并select我要发送给谁等 我想知道为什么它遇到了“超出范围”的错误，并且如果有可能让这个过程自动地通过，而不需要我在事件触发后input事件（这是从Workbook_Open（）事件触发的 – 如果这有什么区别，并且在另一个工作表（工作表（“ValLog”））中进行select） 我正在运行的代码是： Private Sub workbook_open() Dim AWorksheet As Worksheet Dim Sendrng, rng As Range Dim answer As Integer On Error GoTo StopMacro answer = MsgBox("Do you want to send e-mail notifications of upcoming tours?", vbYesNo) If answer […]

调用多个模块中的用户select

我当前的代码使用Workbook_Open事件来运行一个用户表单，询问用户想要做什么，如果他们select“A”它填充一个用户窗体显示所有打开的工作簿名称（S）的列表框。 使用ListBox_DblClick事件，我希望用户能够双击他们希望激活的工作簿的名称，以运行一些涉及从一张工作表复制信息的任务（一个工作簿导出到临时文件夹一个半不可能的命名系统）到一个工作簿，我知道的名字和位置。 我似乎无法获得双击事件后被调用的列表框值。 任何指针？ Userform2内的代码： Option Explicit Public Vval As String Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Vval = Me.ListBox1.Value Call AUTOMATEME Unload Me End Sub Private Sub UserForm_Initialize() Dim wkb As Workbook With Me.ListBox1 For Each wkb In Application.Workbooks .AddItem wkb.Name Next wkb End With End Sub 双击事件调用的子（我有问题的）是： Sub AUTOMATEME() With Listbox1.Value Worksheets("MYDATA").Range("D2:D103").Select Selection.Copy […]