-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Private Sub Workbook_Open ()
Dim pathItem $
Application. The Visible=False
PathItem="D: \ Discharge_Data"
If Dir (pathItem, vbDirectory)="" Then
VBA. The MkDir (pathItem)
End the If
The UI. The Show
End Sub
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
CodePudding user response:
Identified is a question of form within the frame of the label, inside the frame only controls, are unable to use, how to solve?CodePudding user response:
Like press f8 is executed step by step, step by step implementation estimates show UI form has a problem, 1. Check if all quotes, cancel it and then delete control redesign, 2. Check whether there is the code inside the form, whether caused by code,