|
| Makro i Excel. Gemt filnavn... Fra : Tobster | Vist : 865 gange 50 point Dato : 02-05-07 13:19 |
|
Jeg har en makro som jeg gerne vil have lidt hjælp til. Jeg har en excel-fil som jeg vil have gemt, men navnet på den gemte fil skal være afhængig af kildefilen. Dvs. den gemste fil skal hedde det samme som kildefilen.
Hvad skal jeg skrive i stedet for:
Kode "F:\SERVICESALG\Tilbudsplatform\Quotations - test.xls" |
Kode Sub Makro2()
'
' Makro2 Makro
' Makro indspillet 02-05-2007 af -
'
' Genvejstast:Ctrl+r
'
ActiveWorkbook.SaveAs Filename:= _
"F:\SERVICESALG\Tilbudsplatform\Quotations - test.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub |
| |
| Kommentar Fra : berpox |
Dato : 02-05-07 14:19 |
|
??? Der er liiige noget jeg ikke forstår dér.
Hvis du allerede har åbnet filen (altså kildefilen), så skal du jo blot gemme filen oveni, altså et helt almindeligt "Gem" med genvejstast CTRL+S
Hvis det er fordi du vil gemme filen i et andet (men forudbestemt bibliotek), hvor filen IKKE eksisterer i forvejen, så skal du blot have tilføjet filnavnet til din sti.
Så kan koden se således ud:
Kode Option Explicit
Sub SaveTilbud()
Dim fname, fpath As String
fname = ActiveWorkbook.Name
'fpath = "F:\SERVICESALG\Tilbudsplatform\"
fpath = "C:\"
ActiveWorkbook.SaveAs Filename:=fpath & fname, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub |
- du vil stadig blive spurgt hvis filen eksisterer i forvejen, hvis du afvikler makroen....
| |
| Kommentar Fra : Tobster |
Dato : 02-05-07 14:24 |
|
Der er tale om en grundfil, som bliver sendt ud til flere personer.
Disse personer gemmer så filen lokalt. Eks.: "Quotations - Søren Nielsen.xls"
De skal så kunne rapportere filen til et fællesdrev - alle sammen i samme mappe, men med hvert sit kildenavn.
Hvis jeg bruger den kode jeg har beskrevet ovenfor, vil den kande Sørens fil for "Quotations - test.xls"
Det er okay at blive spurgt om filen skal overskrives.
| |
| Kommentar Fra : berpox |
Dato : 02-05-07 15:55 |
|
OK - du vil altså flette et brugernavn sammen med filnavnet....
Kode Option Explicit
Sub SaveTilbud()
Dim fname, fpath, pname As String
pname = Application.UserName
fname = ActiveWorkbook.Name
'fpath = "F:\SERVICESALG\Tilbudsplatform\"
fpath = "C:\"
ActiveWorkbook.SaveAs Filename:=fpath & fname & " - " & pname, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub |
Dvs. hvis filen hedder: "Quotation.xls" og brugeren der åbner filen hedder Hans C. Andersen, så gemmes filen ved makroafvikling som "Quotation - Hans. C. Andersen.xls"
Navnet er det brugernavn der er registreret i brugerens Officepakke (Excel).
| |
| Kommentar Fra : Tobster |
Dato : 03-05-07 16:58 |
|
He he... Nej ikke helt... Men nogen derhen ad...
1. Grundfilen "Quotations.xls" sendes til en sælger.
2. Sælgeren gemmer den på sin PC og tilføjer sit navn bagefter: "Quotations - Søren Nielsen.xls"
Så på den måde skal den jo bare via makro gemme filen i det samme filnavn som den har i forvejen.
| |
| Kommentar Fra : Tobster |
Dato : 03-05-07 17:19 |
|
Ok, jeg fik det til at virke med følgende kode:
Kode Sub Rapportér()
Dim fname, fpath, pname As String
pname = Application.UserName
fname = ActiveWorkbook.Name
fpath = "F:\Servicesalg\Tilbudsplatform\"
ActiveWorkbook.SaveAs Filename:=fpath & fname, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False |
Det eneste problem er nu, at sælgeren så befinder sig og arbejder i den fil der er kopieret til serveren.
| |
| Accepteret svar Fra : berpox | Modtaget 50 point Dato : 03-05-07 18:43 |
|
Din kode mangler da pname.....
Linien med ActiveWorkbook.SaveAs skal da se således ud:
Kode ActiveWorkbook.SaveAs Filename:=fpath & fname & " - " & pname, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False |
- ellers gemmes filen IKKE som:
"F:\Servicesalg\Tilbudsplatform\Quotation - Hans C. Andersen.xls"
men kun som
"F:\Servicesalg\Tilbudsplatform\Quotation.xls"
Men rigtigt - sælgeren vil fremover arbejde med den fil sælgeren har gemt i folderen
"F:\Servicesalg\Tilbudsplatform\"
Men det var jo sådanset også det du bad om
| |
| Kommentar Fra : Tobster |
Dato : 07-05-07 22:30 |
|
He he.... har nok lige et par spm mere om kort tid...
Det er noget jeg laver på/for arbejdet, og har haft møde i dag - håber jeg får tid til at se på det i morgen.
| |
| Godkendelse af svar Fra : Tobster |
Dato : 22-05-07 14:29 |
| | |
| Du har følgende muligheder | |
|
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.
Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
| |
|
|