全局变量，用户表单和保存选项 [英] Global Variable, Userform, and Save Option

问题描述

早上好，

我需要以下代码的帮助。

Please I need help with the below code.

它始终选择模块中的第一个选项无论我在userform中选择什么选项。这是个人驱动器。谢谢!!!

It is always choosing the first option in the Module no matter what option I choose in the userform. Which is the personal drive. Thanks!!!

用户表单代码：

Private Sub Personalcmd_Click（）

如果Me.ComboBox1.Value =" PERSONAL DRIVE"然后是
PersonalDrive = ComboBox1.Value

ElseIf Me.ComboBox1.Value =" OPS-BAU"然后

OPSDrive = ComboBox1.Value

ElseIf Me.ComboBox1.Value =" ALL DRIVE"然后

AlldriveDrive = ComboBox1.Value

结束如果

卸载我

User form Code:
Private Sub Personalcmd_Click()
If Me.ComboBox1.Value = "PERSONAL DRIVE" Then
PersonalDrive = ComboBox1.Value
ElseIf Me.ComboBox1.Value = "OPS-BAU" Then
OPSDrive = ComboBox1.Value
ElseIf Me.ComboBox1.Value = "ALL DRIVE" Then
AlldriveDrive = ComboBox1.Value
End If
Unload Me

End Sub

Private Sub UserForm_Initialize（）

使用ComboBox1

.AddItem" PERSONAL DRIVE"

.AddItem" OPS-BAU" b $ b .AddItem" ALL DRIVE" $
结束于
结束子

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "PERSONAL DRIVE"
.AddItem "OPS-BAU"
.AddItem "ALL DRIVE"
End With
End Sub

MODULE CODE

MODULE CODE

Public PersonalDrive As String

Public OPSCMD As String

Public AlldriveCMD As String

Public PersonalDrive As String
Public OPSCMD As String
Public AlldriveCMD As String

DriveOptionfrm.Show

'开立个人

如果PersonalDrive =真，那么

将objFolder = objShell.BrowseForFolder（lHwnd，"选择文件夹保存附件：" ;, OPTIONS，" S：\"）

DriveOptionfrm.Show
'Open personal
If PersonalDrive = True Then
Set objFolder = objShell.BrowseForFolder(lHwnd, "Select folder to save attachments:", OPTIONS, "S:\")

"打开行动驱动

elseif的OPSDrive =真，那么

将objFolder = objShell.BrowseForFolder（lHwnd，"选择文件夹保存附件：" ;, OPTIONS，" ; M：\ OPS-BAU"）

'Opens Ops drive
ElseIf OPSDrive = True Then
Set objFolder = objShell.BrowseForFolder(lHwnd, "Select folder to save attachments:", OPTIONS, "M:\OPS-BAU")

"打开根

elseif的AlldriveDrive然后

将objFolder = objShell.BrowseForFolder（lHwnd，"选择文件夹保存附件：" ;, _

                       &NBSP ;                        &NBSP ;   
BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN，CSIDL_DESKTOP）

结束如果

'Opens root
ElseIf AlldriveDrive Then
Set objFolder = objShell.BrowseForFolder(lHwnd, "Select folder to save attachments:", _
                                                     BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN, CSIDL_DESKTOP)
End If

推荐答案

任何帮助PLZ？

这篇关于全局变量，用户表单和保存选项的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！