Запись данных в XML

RSS

Запись данных в XML

Zimba

Пользователь

Сообщений: 248 Регистрация: 01.01.2017

22.03.2017 15:40:18

Добрый день, помогите вызвать окно Save As для сохранения моих параметров в существующий XML файл, пока есть такой код:

Скрытый текст

Код

Sub WriteXML()
        If varFile = Emply Then
            If MsgBox("You must open your configuration file first!", vbCritical, "Error") = vbOK Then
                Exit Sub
            End If
        End If
            If MsgBox("Save data to:" & Chr(32) & varFile & Chr(32) & "Do you want continue?", vbYesNo, "Warning") = vbYes Then
                DFXConfigFile.SelectSingleNode("/settings/settingsPR3/fMeterId_SerialNumber").Text = Settings.Range("E4")
                DFXConfigFile.SelectSingleNode("/settings/settingsCommon/iMeterSize").Text = Settings.Range("E5")
                DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fKFactor").Text = Settings.Range("E8")
                DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fMeterFactor").Text = Replace(Settings.Range("E9").Value, ",", ".")
                DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fBodyFactor").Text = Replace(Settings.Range("E10").Value, ",", ".")
                DFXConfigFile.SelectSingleNode("/settings/settingsPR1/iCalibrationType").Text = Settings.Range("E11")
            For I = 0 To 15
                DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fQMFCalCoefs/fQMFCalCoef_" & I + j).Text = Replace(Settings.Range("R" & j + 4).Value, ",", ".")
                DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fQMFCalCoefs/fQMFCalCoef_" & I + j + 1).Text = Replace(Settings.Range("S" & j + 4).Value, ",", ".")
                DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fPNMFCalCoefs/fPNMFCalCoef_" & I + j).Text = Replace(Settings.Range("V" & j + 4).Value, ",", ".")
                DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fPNMFCalCoefs/fPNMFCalCoef_" & I + j + 1).Text = Replace(Settings.Range("W" & j + 4).Value, ",", ".")
                j = j + 1
                Next I
                DFXConfigFile.Save varFile
            End If
End Sub

При выполнении макроса, данные пишутся по преждее открытому пути varFile. Как вызвать окно сохранить как и указать путь самостоятельно?

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

22.03.2017 15:58:06

Так попробуйте

Код

Function GetFilename(Optional ByVal xmlPath$ = "") As String
    On Error Resume Next: Err.Clear
    Dim initial_filename$, dialog_title$, prevDir$, res As Variant
    If xmlPath$ = "" Then
        initial_filename$ = ThisWorkbook.Path & "\" & "Settings_" & Format(Now, "DD.MM.YYYY_HH-NN-SS") & ".xml"
        dialog_title$ = "Выберите путь для сохранения"
        prevDir$ = CurDir$: ChDrive Left(initial_filename$, 1): ChDir ThisWorkbook.Path
        res = Application.GetSaveAsFilename(initial_filename$, "Файлы XML (*.xml),", , dialog_title$)
        ChDrive Left(prevDir$, 1): ChDir prevDir$
        If VarType(res) = vbBoolean Then Exit Function
        GetFilename = CStr(res)
    End If
End Function

Изменено: Игорь - 22.03.2017 16:01:55

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Zimba Пользователь Сообщений: 248 Регистрация: 01.01.2017	#3 22.03.2017 17:28:00 Игорь, Я новичок если честно и не совсем понимаю как функцию задействовать с макросом. Примерно понимаю что нужно как то вставить GetFilename в макрос записи?? Изменено: Zimba - 22.03.2017 20:38:52

Читают тему