let 
MyData = Text.From(Excel.Workbook(File.Contents("D:\test\test.xlsx", null,true,{[Item="key1",Kind="Table"]}[Data]{[Parameter="MyData"]}[Value])

Источник=Oracle.Database("OMPAW", [Query="

With prm as (Select to_date('" & MyData & "', 'dd.mm.yyyy') as dat from dual)
Далее идёт SQL запрос

= Table.TransformColumns(YourTable, {"Cars", each Record.FieldOrDefault([Volkswagen = "VW", Renault = "RN", Dacia = "DC"],_,_)})

Function street_extract_test()

'если слово в строке полностью из заглавных букв превратить его в "Первая Заглавная"
txt = "НОВЫЙ СВЕТ СоЛнЦе Луч9 20 САДОВОДСТВО дорога"
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "([А-ЯЁ]+{2,})"
regex.Global = True
'txt1 = regex.Replace(txt, Application.WorksheetFunction.Proper("$1"))

'Первая цифра в строке + первое перед этой цифрой слово с Заглавной буквы
txt = "2Санкт-Петербург, Обводный канал 45/1 строение 25Б Литер М"
regex.Global = False
regex.Pattern = "([\s|^]+)([А-Я]+)([А-Яа-я0-9A-Za-z\s]+)(\d+)(\s|$)?"
If regex.test(txt) Then
Set matches = regex.Execute(txt)
txt3 = matches.Item(0)
End If
End Function

If regex.Test(txt) Then
    Set matches = regex.Execute(txt)
    txt = matches.Item(0)
    txt = Replace(txt, " ", "_")
Else
    regex.Pattern = "(^+[А-Яа-яёЁ0-9A-Za-z\-]{1,})(\s|^)"
    If regex.Test(txt) Then
        Set matches = regex.Execute(txt)
        txt = matches.Item(0)
    Else
        txt = "-"
    End If
End If

Sub regexp1()
    s = "'7.1"
    s2 = "7/1"
    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.Pattern = "[^'\d\.]"
    bRes = RegExp.test(s)
    If bRes Then MsgBox "Неверный формат данных " & s
    bRes = RegExp.test(s2)
    If bRes Then MsgBox "Неверный формат данных " & s2
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge Mod Columns.Count = 0 Then
 If Target.CountLarge Mod Rows.Count <> 0 Then
 MsgBox "Пуск"
 End If
End If
End Sub

Sub пример1()
Set wb = ActiveWorkbook
Set sh = wb.ActiveSheet
Call пример2(wb, sh)
End Sub

Sub пример2(wb As Workbooks, sh As Sheets)
MsgBox wb.FullName
MsgBox sh.Name
End Sub

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document

Sub test()
arr = Range(Cells(1, 1), Cells(1, 1))
For Each a In arr 'здесь ошибка
MsgBox a
Next
End Sub

Sub ИзъятиеМассива()
iCC = 3
iST = 1
arr = СлияниеМассива(2, 1)
Range(Cells(iST, "J", Cells(UBound(arr) + iST, "J") = WorksheetFunction.Transpose(arr)
End Sub

Function СлияниеМассива(iCC, Optional iST, Optional iET) 'As Variant

If IsMissing(iST) Then iST = 2
If IsMissing(iET) Then iET = Cells(Rows.Count, iCC).End(xlUp).Row

For i = iST To iET
    sumWord = sumWord & "||" & Cells(i, iCC)
Next
arr = Split(Right(sumWord, Len(sumWord) - 2), "||"
СлияниеМассив = arr
End Function