fix Module1.bas

fscorrupt · Mar 28, 2024 · 3cb5f88 · 3cb5f88
1 parent 82043c4
commit 3cb5f88
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Module1.bas b/Module1.bas
@@ -91,7 +91,7 @@ Sub ImportCSVs(folderPath)
     Set wsImageChoices = ThisWorkbook.Worksheets.Add
     wsImageChoices.Name = "ImageChoices"
     ThisWorkbook.Queries.Add Name:="ImageChoices", Formula:= _
-        "let" & Chr(13) & "" & Chr(10) & "    Source = Csv.Document(File.Contents(""C:\Users\bullmoose20\ppm\Logs\ImageChoices.csv""),[Delimiter="";"", Columns=9, Encoding=65001, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & "    #""Promoted Headers"" = Table.PromoteHeaders(Source, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(#""Promoted Headers"",{{""Title"", type text}, {""Type"", t" & _
+        "let" & Chr(13) & "" & Chr(10) & "    Source = Csv.Document(File.Contents(""" & Filename1 & """),[Delimiter="";"", Columns=9, Encoding=65001, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & "    #""Promoted Headers"" = Table.PromoteHeaders(Source, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(#""Promoted Headers"",{{""Title"", type text}, {""Type"", t" & _
         "ype text}, {""Rootfolder"", type text}, {""LibraryName"", type text}, {""Language"", type text}, {""Fallback"", type logical}, {""TextTruncated"", type logical}, {""Download Source"", type text}, {""Direct Provider Link"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
 
     With wsImageChoices.ListObjects.Add(SourceType:=0, Source:= _