Har en mapp med att antal BMP-bilder som jag skulle vilja kopiera in i en lång lista i Excel tillsammans med deras filnamn, via VB. Sätt en referens till Excel scripting eller vad det kan heta. Typ något sånt här: Tack Niklas, men detta ger mig ju bara filnamnen, jag vill även "klistra" in själv bilderna i arket?? Du får väl försöka lite själv? =)Kopiera BMP:er till XL
Någon som har ett förslag på hur jag kan få till detta?
/MiZSv: Kopiera BMP:er till XL
Loopa igenom mappen med hjälp av FSO.Sv: Kopiera BMP:er till XL
<code>
Dim xlapp As Excel.Application
Dim xlwb As Excel.Workbook
Dim xlws As Excel.Worksheet
Set xlapp = New Excel.Application
Set xlwb = xlapp.Workbooks.Add
Set xlws = xlwb.Worksheets(1)
Dim fso As FileSystemObject
Dim fol As Folder
Dim fil As File
Set fso = New FileSystemObject
Set fol = fso.OpenFolder("C:\mapp") 'mycket osäker på syntaxen
For Each fil In fol
if right$(fil.name, 3)="bmp" then
xlws.cells(irow, 1)=fil.name
End if
Next
</code>
(Skrivet ur minnet, du får trixa lite)Sv: Kopiera BMP:er till XL
Sv: Kopiera BMP:er till XL
Gör så här: Starta Excel.
Börja spela in ett makro.
Gör det du vill göra, dvs. klistra in en bild.
Stoppa makrot.
Kolla hur det gick till med ALT+F11.