VBA Использование msoFolderPicker для получения пути к каталогу, как использовать это значение в другом фрагменте кода - PullRequest
Новая
       11

VBA Использование msoFolderPicker для получения пути к каталогу, как использовать это значение в другом фрагменте кода

0 голосов
/ 11 февраля 2019

первый.Я пытаюсь создать msoFolderpicker для пользователей, чтобы выбрать папку.результаты печатаются в ячейке.У меня есть эта работа, я думаю.Второй.У меня есть другой импортированный (записанный) код макроса, который в настоящее время вызывает жестко закодированный путь к папке и открывает определенный текстовый файл.Само по себе это работает.Я хотел бы иметь гибкость хранимого значения средства выбора папок, чтобы импортированный (записанный) код marco использовал его для пути, и все, что мне нужно для жесткого кода, - это имя файла.

Мое тестирование включало ограниченные знания о попытке сохранить значение, а затем о попытке вызвать это значение в другом фрагменте макроса.Я просто не понимаю, как соединить две части вместе.Я создал кнопку ActiveX и имел «Позвонить» другой макрос.Но в этом случае вызов не работает. 

    _______________________________
    Sub FolderPicker()
    '
    ' first attempt at a folderpicker. 
    ' Brings up file dialog box and user selects location path. Location path 
    is ' ' store in cell ("M11") on worksheet. This macro is stored on  
    'Sheets("Import_Macro").Select
    '
    '
   Dim diaFolder As FileDialog
    '
   Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
   diaFolder.AllowMultiSelect = False
   diaFolder.Show

   fle = diaFolder.SelectedItems(1)
   Range("M11") = fle

   Set diaFolder = Nothing

   End Sub
    _______________________________
   Sub import_parameter()
   '
   ' import_parameter Macro
    ' This was created with a recorded macro in excel.
    ' Opens a hardcode path and filename txt file and goes through the txt 
    ' delimited wizard
    ' then copies select data into the current open workbook. 
    ' This macro is stored on Sheets("App Settings").Select
    '
    Application.ScreenUpdating = False

    Workbooks.OpenText Filename:="C:\txtdata\cf_parameter.txt", Origin:=437, 
    _
      StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
    , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), 
    _
    Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), 
    TrailingMinusNumbers:=True
    Range("A2:G2000").Select
    Selection.Copy

    Windows("TRH Pre-Installation Guide.xlsm").Activate
    Sheets("App Settings").Select
    Range("B6:H6").Select
    ActiveSheet.Paste
    Selection.AutoFilter
    Application.CutCopyMode = False

    ActiveWindow.ActivateNext
    ActiveWindow.Close
    Range("B4").Select

    Application.ScreenUpdating = True

     End Sub
    _________________________________

В настоящее время код импорта (записанный макрос) работает сам по себе, открывает текстовый файл и копирует выбранные данные в рабочую книгу.Тем не менее, я считаю, что лучше выбрать изменение пути к папке вместо жесткого пути к папке.Любая помощь по этому вопросу будет принята с благодарностью.> !!Заранее благодарю за понимание.

...