2 Вопроса по VBA

[Meiyo]

---------------------------------------------------------------------------
Как правильно заменить строки кода,чтобы файл можно было сохранить в какой-нибудь каталог, а не в стандартную папку?
Sub Экспорт_csv()
Dim Filename As String
Dim NumRows As Long, NumCols As Integer
Dim r As Long, c As Integer
Dim Data
Dim ExpRng As Range
Set ExpRng = Application.Intersect(Selection, ActiveSheet.UsedRange)
NumCols = ExpRng.Columns.Count
NumRows = ExpRng.Rows.Count
Filename = Application.DefaultFilePath & "\textfile.csv"
Open Filename For Output As #1
For r = 1 To NumRows
For c = 1 To NumCols
Data = ExpRng.Cells(r, c).Value
If IsNumeric(Data) Then Data = Val(Data)
If IsEmpty(ExpRng.Cells(r, c)) Then Data = ""
If c <> NumCols Then
Write #1, Data;
Else
Write #1, Data
End If
Next c
Next r
Close #1
MsgBox ExpRng.Count & " ячеек экспортировано в " & Filename, vbInformation
--------------------------------------------------------------------------
Отчего зависит переменная Result? И что такое "lp" перед переменными ( то есть, что показывает этот префикс, да и другие тоже)?
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub OpenURL()
Dim URL As String
Dim Result As Long
URL = ""
Result = ShellExecute(0&, vbNullString, URL, _
vbNullString, vbNullString, vbNormalFocus)
If Result < 32 Then MsgBox "Ошибка"
End Sub