19. august 2002 - 10:33Der er
14 kommentarer og 1 løsning
Link til en fil.
Hejsa allesammen
Jeg har et lille spørgsmål: Hvis jeg laver et txt og skriver "test" kan excel med en eller andre kommandon gå ind i txt filen også skrive "test" i excel og hvis man ændre teksten "test" til "test2" bliver det også lave om i excel filen ???
AI bliver først for alvor en del af arbejdet, når teknologien integreres i den måde, vi arbejder på. At have adgang til AI betyder ikke nødvendigvis, at medarbejderne er klar til at bruge den.
Det kan du godt - prøv f.eks. at have to filer åbne, så kan du en den ene fil lave en formel til en celle i en anden fil. Stil dig i en cell og tryk = skift til den anden excel-fil og vælg en celle - tryk retur.
Det virker fint :) men den skriver hver gang jeg går ind i hovede xls filen om jeg vil opdate kan man ikke bare få den til at gør det Automatisk/Altid ???
Synes godt om
Slettet bruger
19. august 2002 - 10:57#5
Du kan godt vha. noget kode, få Excel til at læse i en tekstfil, og indsætte teksten i en celle. Er det hvad du mener ?
godt blackadder - det hjalp på forståelsen - måske blot """lidt""" træt efter week-enden ;-)
Sub WriteToFile() 'Skriv til en fil Dim sFileName As String Dim sLine As String Dim lFileNum As Long
sFileName = "C:\WriteToFile.txt"
lFileNum = FreeFile Open sFileName For Output As #lFileNum 'Her kan f.eks. indbygges en ForNext eller ForEach sLine = "Linie nr 1" Print #lFileNum, sLine Close #lFileNum End Sub
Sub WriteExtraToFile() 'Tilføj i en eksisterende fil Dim sFileName As String Dim sLine As String Dim lFileNum As Long
sFileName = "C:\WriteToFile.txt"
lFileNum = FreeFile Open sFileName For Append As #lFileNum 'Her kan f.eks. indbygges en ForNext eller ForEach sLine = "Linie nr 2" Print #lFileNum, sLine Close #lFileNum End Sub
Sub ReadFromFile() 'Læs fra en fil Dim sFileName As String Dim sLine As String Dim lFileNum As Long
sFileName = "C:\WriteToFile.txt"
lFileNum = FreeFile Open sFileName For Input As #lFileNum 'Do While EOF(1) = False Line Input #lFileNum, sLine MsgBox sLine 'Loop Close #lFileNum End Sub
Det skal rettes lidt til - håber du får hjælp af en anden - jeg har fået en haste opgave, som skal laves inden 13 - sorry.
Synes godt om
Slettet bruger
19. august 2002 - 11:59#10
Hvis du bare skal læse fra en tekstfil, kan du vist nøjedes med Sub ReadFromFile()
Makroen skal indsættes i arkets kodemoodul. (opret evt. et nyt modul) 1. Tryk ALT+F11. 2. Indsæt -> Modul 3. Copy/paste hele Flemmingdahls svar ind i kodemodulet 4. Ret stien fra "C:\WriteToFile.txt" til stien for din egen tekstfil. 5. Kør makroen ReadFromFile fra menuen Funktioner -> Makro
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.