Minulla on nyt tällainen Tallenna nimellä -makro:
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
Saako tuohon sisällytettyä vielä sellaisen, että resurssinhallinnassa näkyy esim. Aihe -kohdassa (voi valita sieltä Näytä => Valitse tiedot) näkyisi solun A1 sisältö?
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
Saako tuohon sisällytettyä vielä sellaisen, että resurssinhallinnassa näkyy esim. Aihe -kohdassa (voi valita sieltä Näytä => Valitse tiedot) näkyisi solun A1 sisältö?
Vastaukset 10
Vanhimmat
Et pysty vaikuttamaan resurssienhallinnan asetuksiin excel-makrolla.
Jos se välttämättä on saatava näkyviin, niin liitä vaikka sekin osaksi tuota tiedostonimeä.
Miksi ylipäätään haluat solun a1 sisällön näkyviin resurssienhallinnassa?
Eli mistä se sen Aiheen nappaa?
Tiedosto/Ominaisuudet/Yhteenveto-vl, Aihe-kohta.
Siis tässä, kun tallennat työkirjan nimellä
SoluF1 SoluF2 .xls
hakemistoon
C:\hsu\tytot92\
Pätkä makrostasi, missä se tapahtuu:----
ActiveWorkbook.SaveAs Filename:= _
"C:\hsu\tytot92\" & SoluF1 & SoluF2 & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
------
Niin lisäät vain tuohon sen a1 solun arvon esim näin(tässä koko makro):
Sub TallennaNimellä()
Sheets("Tytot").Select
Dim SoluF1 As String
Dim SoluF2 As String
Dim SoluA1 As String
SoluF1 = Range("F1").value
SoluF2 = Range("F2").value
SoluA1 = Range("A1").value
ChDir "C:\hsu\tytot92"
ActiveWorkbook.SaveAs Filename:= _
"C:\hsu\tytot92\" & SoluF1 & SoluF2 & SoluA1 & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Nyt työkirja tallentuu nimellä
SoluF1 SoluF2 SoluA1.xls
Näin. Tai sitten olen ymmärtänyt ongelmasi jotenkin väärin.
Jos tämä on tosiaankin tarkoituksena, on makron
käyttäminen jopa hieman tarpeetonta, elleivät kyseessä ole erityisen vaikeat tai pitkät merkkijonot, joita ei jaksa kirjoittaa.
Tuon osaan itsekin ;)
MUTTA pitäisi saada siis niin, että A1 tieto näkyy Resurssinhallinnassa "Aihe" kohdassa. Ei siis nimi!!!
Yrittäkää nyt joku taitava mies saada se toimimaan!!!
Toimisiko tämä? En ole itse kokeillut.
Dim SoluA1 As String
SoluA1 = Range("A1")
ThisWorkbook.BuiltinDocumentProperties("Subject").Value = SoluA1
Periaatteessa varmaan toimii, mutta en tiedä mihin väliin sen tuossa makrossa laittaisi..
Sub TallennaNimellä()
Sheets("Tytot").Select
Dim SoluF1 As String
Dim SoluF2 As String
Dim SoluA1 As String
SoluF1 = Range("F1")
SoluF2 = Range("F2")
SoluA1 = Range("A1")
ThisWorkbook.BuiltinDocumentProperties("Subject").Value = SoluA1
ChDir "C:\hsu\tytot92"
ActiveWorkbook.SaveAs Filename:= _
"C:\hsu\tytot92\" & SoluF1 & SoluF2 & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Ei siellä Aihe / Subject sarakkeessa näy mitään... :(
Muita konsteja?
ThisWorkbookin tilalle ActiveWorkbook.