Heips!
Viitateen edelliseen viestiini. Eli kykenetkö muokkaamaan makroa siten, että se tallentaa tiedoston ensisijaisesti kansioon C:\hsu\tytot92 mutta jos sitä ei löydy, on tallnnusosoite K:\hsu\tytot92. Siis nykyinen makro on tällainen:
Sub TallennaNimellä()
Sheets("Tytot").Select
Dim SoluF1 As String
Dim SoluF2 As String
SoluF1 = Range("F1")
SoluF2 = Range("F2")
ChDir "C:\hsu\tytot92"
ActiveWorkbook.SaveAs Filename:= _
"C:\hsu\tytot92\" & SoluF1 & SoluF2 & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Tietysti voisi tehdä pääkoneelle ja kakkoskoneelle omat tallennusnappulat, mutta jos suinkin onnistuu, niin se olisi eri kivaa!
Viitateen edelliseen viestiini. Eli kykenetkö muokkaamaan makroa siten, että se tallentaa tiedoston ensisijaisesti kansioon C:\hsu\tytot92 mutta jos sitä ei löydy, on tallnnusosoite K:\hsu\tytot92. Siis nykyinen makro on tällainen:
Sub TallennaNimellä()
Sheets("Tytot").Select
Dim SoluF1 As String
Dim SoluF2 As String
SoluF1 = Range("F1")
SoluF2 = Range("F2")
ChDir "C:\hsu\tytot92"
ActiveWorkbook.SaveAs Filename:= _
"C:\hsu\tytot92\" & SoluF1 & SoluF2 & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Tietysti voisi tehdä pääkoneelle ja kakkoskoneelle omat tallennusnappulat, mutta jos suinkin onnistuu, niin se olisi eri kivaa!
Vastaukset 3
Vanhimmat
Toivottavasti en tallaa Excelit.fi:n varpaille...
Sub TallennaNimellä()
Sheets("Tytot").Select
Dim SoluF1 As String
Dim SoluF2 As String
Dim sPath As String
SoluF1 = Range("F1")
SoluF2 = Range("F2")
With CreateObject("Scripting.filesystemobject")
If .folderexists("C:\hsu\tytot92") Then
sPath = "C:\hsu\tytot92\"
Else
sPath = "K:\hsu\tytot92\"
End If
End With
ActiveWorkbook.SaveAs Filename:= _
sPath & SoluF1 & SoluF2 & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Varpaani on sen verran pienet että niiden päälle ei välttämättä edes osu vaikka yrittäisi... :)
Eli ilman muuta kaikki hyvät ideat kannattaa kertoa, tuo on itse asiassa aika näppärä ja hyvä ratkaisu.
Itselläni oli mielessä hieman yksinkertaisempi ratkaisu eli tutkitaan aktiivisen tiedoston polku:
----------------------------------
Sub TallennaNimellä()
Sheets("Tytot").Select
Dim SoluF1 As String
Dim SoluF2 As String
SoluF1 = Range("F1")
SoluF2 = Range("F2")
Dim Polku As String
Polku = ActiveWorkbook.Path
ChDir Polku
ActiveWorkbook.SaveAs Filename:= _
Polku & "\" & SoluF1 & SoluF2 & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
----------------------------------
Kummatkin toimii loistavasti ;)
Puss! :)