Oprettet man. d. 07. januar 2013 kl. 13:33:16
30 point uddelt | 11 kommentarer
Short Path til en fil
Kan jeg med hjælp fra VBA gå ind og finde den aktuelle "ShortPath" til den fil jeg arbejder med?Jeg forklarer lige hvad jeg mener med "ShortPath":
Bag de lange filnavne som windows kan håndtere, ligger der også et kort filnavn/sti som mange vil kunne huske fra DOS-styresystemet, eksempelvis "C\DOKUME~1\IM1FER~1\FERMEN~1\ALLEPL~1\RVARER~1\VITAMI~2.XLS"
Jeg har brug for at trække denne korte sti ind i et af mine parametre i VBA-koden. Jeg bruger normalt
ThisWorkbook.Path
til at trække den lange sti med,
men findes der noget tilsvarende hvor man kan tilgå den korte udgave?
Skrevet man. d. 07. januar 2013 kl. 19:33:16| #1
RogerWilco (3.405 point)
Prøv denne:
http://www.dailydoseofexcel.com/ (...)
http://www.dailydoseofexcel.com/ (...)
Skrevet tir. d. 08. januar 2013 kl. 10:34:38| #2
folj (11.380 point)
Er der ikke en der kan hjælpe med funktionskaldet også, for jeg kan ikke få det til at spille... returnerer fejlen "User-defined type not defined"
mit funktionskald:
-----kode-----
Sub EnterShortPath()
Dim LongPath As String
LongPath = ThisWorkbook.FullName
Path = GetShortDosPath(LongPath)
MsgBox Path
End Sub
-----/kode-----
mit funktionskald:
-----kode-----
Sub EnterShortPath()
Dim LongPath As String
LongPath = ThisWorkbook.FullName
Path = GetShortDosPath(LongPath)
MsgBox Path
End Sub
-----/kode-----
Skrevet tir. d. 08. januar 2013 kl. 11:15:55| #3
folj (11.380 point)
Jeg skal måske lige præcisere at min funktion er som beskrevet under RogerWilco's link:
------kode-----
Function GetShortDosPath(sPath As String)
Dim fso As Scripting.FileSystemObject
Dim fsoFile As Scripting.file
Set fso = New FileSystemObject
Set fsoFile = fso.GetFile(sPath)
GetShortDosPath = fsoFile.ShortPath
End Function
------/kode-----
------kode-----
Function GetShortDosPath(sPath As String)
Dim fso As Scripting.FileSystemObject
Dim fsoFile As Scripting.file
Set fso = New FileSystemObject
Set fsoFile = fso.GetFile(sPath)
GetShortDosPath = fsoFile.ShortPath
End Function
------/kode-----
Skrevet tir. d. 08. januar 2013 kl. 11:26:30| #4
folj (11.380 point)
Kan se i min VBA-debugger at linien
Dim fso As Scripting.FileSystemObject
er markeret med blåt.
kan det ikke være den linie der fejler?
Når jeg skriver i hånden "Dim fso As " så vises der alle de muligheder man har, og der findes der ikke noget der hedder scripting...
Hvad gør jeg for at komme videre?
Dim fso As Scripting.FileSystemObject
er markeret med blåt.
kan det ikke være den linie der fejler?
Når jeg skriver i hånden "Dim fso As " så vises der alle de muligheder man har, og der findes der ikke noget der hedder scripting...
Hvad gør jeg for at komme videre?
Skrevet tir. d. 08. januar 2013 kl. 12:23:47| #5
RogerWilco (3.405 point)
Fra artiklen:
Don't forget to set a reference to Microsoft Scripting Library (Tools - References)
Nævnte menu er i VBA-editor, og jeg mener komponenten faktisk hedder: Microsoft Scripting Runtime.
Don't forget to set a reference to Microsoft Scripting Library (Tools - References)
Nævnte menu er i VBA-editor, og jeg mener komponenten faktisk hedder: Microsoft Scripting Runtime.
Skrevet tir. d. 08. januar 2013 kl. 13:04:30| #6
folj (11.380 point)
@RogerWilco. Ja jeg har set at det står, og det kan også godt være at det er problemet.
Jeg har bare ikke kunnet finde noget sted hvor dette kan tilvælges i den nye version af Excel (version 14.0), som vi benytter her i bixen.
Nogen der ved om det er standard i vers 14 eller skal det tilvælges ?
Jeg har bare ikke kunnet finde noget sted hvor dette kan tilvælges i den nye version af Excel (version 14.0), som vi benytter her i bixen.
Nogen der ved om det er standard i vers 14 eller skal det tilvælges ?
Skrevet tir. d. 08. januar 2013 kl. 17:30:47| #7
RogerWilco (3.405 point)
I både Excel 2003 og 2007 (US version) hedder menuen det samme; Åbn VBA-editor og klik på menuen Tools og vælg References. I listen der kommer frem, sættes flueben i Microsoft Scripting Runtime. Jeg ved ikke, hvad nævnte menu hedder i den danske version, og om det er ændret i 2010.
Skrevet tor. d. 10. januar 2013 kl. 09:28:47| #8
Accepteret svar!10 point tildelt
folj (11.380 point)
Menuerne i Excel 2010 (ver 14) er opbygget helt anderledes end de tidligere versioner.
Jeg måtte google lidt og fandt på http://www.mrexcel.com/ (...) at det skulle findes i VBE (Visual BasicEditorens) menu Tools > References.
Jeg lagde dette som et svar, men synes at du RogerWilco skal have del i points for delagtighed i at finde frem til svaret, så jeg vil bede dig om også at smide et svar.
Jeg måtte google lidt og fandt på http://www.mrexcel.com/ (...) at det skulle findes i VBE (Visual BasicEditorens) menu Tools > References.
Jeg lagde dette som et svar, men synes at du RogerWilco skal have del i points for delagtighed i at finde frem til svaret, så jeg vil bede dig om også at smide et svar.
Skrevet tor. d. 10. januar 2013 kl. 17:49:42| #9
Accepteret svar!20 point tildelt
RogerWilco (3.405 point)
Jeg skrev da også (to gange, faktisk), at det var i VBA-editoren. (c:
Skrevet fre. d. 11. januar 2013 kl. 12:19:18| #10
folj (11.380 point)
Jeg kan lige tilføje, at efter jeg fik sat omtalte flueben i VBE (Visual BasicEditorens) menu Tools > References, så virker det hele.
Tak for indfalten til RogerWilco...
Tak for indfalten til RogerWilco...
Skrevet fre. d. 11. januar 2013 kl. 12:19:58| #11
Log ind
Seneste spørgsmål
Betinget formatering
Oprettet den 17. maj 2013 kl. 19.41
kvisten63 giver 100 point for svar | Giv et svar »
Pivot Excel 2010/2013
Oprettet den 17. maj 2013 kl. 17.11
issay giver 30 point for svar | Giv et svar »
Kopiering af celleværdi og cellefarve fra ark1 til ark2 i...
Oprettet den 17. maj 2013 kl. 13.14
hannelangeland giver 30 point for svar | Giv et svar »
Seneste guides
Seneste nyheder
Tips & Tricks fra PC World
Her er seks Google Labs-funktioner, som du skal slå til med det samme
Gmail Labs giver dig adgang til en masse smarte funktioner, som Googles ingeniører leger med i øjeblikket.
Anmeldelser fra PC World
Test: Samsung Galaxy S4 er et hit - trods gøglertricks
Kan Samsung beholde førertrøjen i det store Android-race? Galaxy S4 er smækfyldt med innovative funktioner, men også med en del gøgl. Er det for meget? Få vores dom over Samsungs nye topmodel.
Seneste blogindlæg
Tvangslukke spørgsmål: Hvad er den bedste løsning?
Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...
Nyheder fra PC World
Tre smarte trick som gør Windows 8 bedre
Boot direkte til skrivebordet, få en strategisk godt placeret luk-knap og slip for at logge ind. Her er tre tips til Windows 8, som gør det nemmere at blive venner med styresystemet.
Nyheder fra Computerworld
Galleri: Her er Googles nyeste værktøj og legetøj
Google har i denne uge afholdt udviklerkonferencen I/O i San Francisco. Se her hvad søgegiganten kunne præsentere af nyskabelser.
IT Kurser
Samarbejdspartnere
Udgiver · © 2013 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger