Gemme fil med tid, f.eks. filnavnååmmddttmm.xls

Der tages forbehold for fejl men prøv:

Open \"C:\\ååmmddttmm.xls\" for output as #1
Print #1, date
Close #1

Nu er jeg ikke lige sikker på at date er den rigtige variabel, men ellers kan du helt sikkert finde den i Hjælp-filen.

Jeg skal ikke åbne en fil med tid, men derimod åbne f.eks. c:\\minfil.txt og gemme den som c:\\minfil0106111645.xls

du har altså en fil som du gerne vil have omdøbt?

Er det rigtig forstået?

/jsc

kan du ikke bare lade den gamle fil ligge?

hmm jeg får en ide... kommer senere...

/jsc

har du en e-mail-adresse?

/jsc

Hejsa

Gør følgende_

Dim FilNavn as string

FilNavn = Format(Date,\"HHNNSS\") + \".xls\"

Eller hvis du vil have både tid og dato

Filnavn = Format (Date, \"DD_MM_YYYY HH_NN_SS\" +\".xls\"

Christian

--> picard
Med dit eksempel får du kun dato/tiden.xls med i filnavnet du skal også have det gamle filnavn med, sådan som jeg har forstået det...

/jsc

jeg ville sætte det op på en lidt andet måde:

Private Sub cmdåbn_Click()
dim tid as string
filnavn = \"C:\\jscdata\\test\\fil.txt\"
Open filnavn For Input As #1
txtvindue = Input$(FileLen(filnavn), #1)
Close #1
tid = now
filnavn2 = filnavn & Format$(tid, \"dd/mm/yy\") & \".xls\"
End Sub

jeg ved ikke om dette er det rigtige for filnavnet kommer til at se sådan ud: \"fil.txt11-06-00.txt\"

/jsc

ups der mangler noget...

Private Sub cmdåbn_Click()
dim tid as string
filnavn = \"C:\\jscdata\\test\\fil.txt\"
Open filnavn For Input As #1
txtvindue = Input$(FileLen(filnavn), #1)
Close #1
tid = now
filnavn2 = filnavn & Format$(tid, \"dd/mm/yy\") & \".xls\"
Open filnavn2 For Output As #2
Print #2, txtvindue.Text
Close #2
Kill filnavn
End Sub

Jeg har prøvet således, men der kommer en kørselsfejl 424, et objekt er oblikatorisk.

Fejlen opstår ved, Print #2, txtvindue.Text

Filen findes.

Public Sub cmdåbn_Click()
Dim tid As String
filnavn = \"C:\\dokumenter\\test.txt\"
Open filnavn For Input As #1
txtvindue = Input$(FileLen(filnavn), #1)
Close #1
tid = Now
filnavn2 = filnavn & Format$(tid, \"dd/mm/yy\") & \".xls\"
Open filnavn2 For Output As #2
Print #2, txtvindue.Text
Close #2
Kill filnavn
End Sub

du skal have en textbox

(txtvindue)

/jsc

skriv noget i filen du starter med...

Jeg har nu indsat en teksboks i excelarket. Men kørselsfejlen er der stadig. Jeg har prøvet både med og uden tekst i boksen.

hmm textboxen skal indsættes i vb-programmet...

Tekstboksen er nu sat ind som userform1 i formular. Men....

Jeg indrømmer at jeg ikke er rutineret i VB

virker det? ellers hvis det ikke virker så skriv din e-mail-adresse så skal jeg sende det hele til dig.

/jsc

Desværre virker det ikke.

Du må meget gerne mail det til mig på
mld@vip.cybercity.dk

sendt, skriv lige hvis problemmer...

har du vb eller er det i word du koder?

Når jeg forsøger at importere filen kommer følgende fejl:

Den formularklasse, der er indeholdt i den angivne fil, understøttes ikke i Visual Basic for Applications - filen kan ikke indlæses. Visual Basic for Applications understøtter kun formularobjekter af typen UserForm.

Det er i excel 97

åååh shit... jeg troede du havde vb 6.0 eller anden version...

ok jeg forklarer dig lige alt så...

1:lav en knap: cmdåbn
2:lav en textbox: txtvindue
3:lav en test.fil til at teste med...
4indsæt koden der står længere oppe på siden i knappens kontrol...
5:skriv stien i programmes koder...
6:kør programmet og tryk på knappen
7:nu skulle den fil du havde være erstattet med den ny f.eks. (test.txt11-06-00.xls)

hvis alt dette ikke virker så må du prøve og sende nogle billeder til mig af fejlen eller hvad der nu sker...

/jsc

Det funker perfekt. Tusind tak forhjælpen, det var lærerrigt.

endelig... det lyder godt...

det var så lidt