Indsættelse af datafil i Excel...

Er din datafil en Access db?

Nej. Det eneste jeg kan få ud af den er at det er en TSP fil. Excel kan sagtens læse den, men skriver som nævt alle data fra en række i en enkelt celle.

Beklager. Jeg aner ikke hvad en TSP fil er.

TSP - læs www.tspintl.com der står en del om hvad TSP er for noget.

Dette link fører desværre ikke nogle svar med sig ang. mit problem.  Det fortæller bare noget om et program, der åbenbart kan programmeres til at løse nogle TSP problemer. Jeg vil bruge Excel til at løse mit, men jeg har stadig problemer med den data fil.

Hej Pernille

Jeg har løst dette problem ved at udføre en løkke hvori jeg indsætter den indlæste data vha. følgende:

Public fileToOpen As String
Public remark As String
Public MyStamp As String
Public remarkcode As Integer

Sub GetFile()


    On Error GoTo FileAccessError
    fileToOpen = Application.GetOpenFilename("Test program (*.*), *.*")
    If fileToOpen = "" Then Exit Sub
    MyStamp = FileDateTime(fileToOpen)
    Msg = "Correct file?"
    Msg = Msg & vbCrLf & fileToOpen
    Msg = Msg & vbCrLf
    Msg = Msg & vbCrLf & "Dato: " & MyStamp
    Response = MsgBox(Msg, vbQuestion + vbYesNo, "Test program")
    Select Case Response
        Case vbYes
            OpenDataFile
        Case vbNo
            Exit Sub
    End Select
    Exit Sub
 
FileAccessError:
Select Case Err
  Case 52, 53, 76
    MsgBox "File dont exsist. Try again!", vbExclamation, "Test program"
    Exit Sub
  Case Else
    Resume Next
  End Select

End Sub

Sub OpenDataFile()

Dim F As Integer, Counter As Integer
Dim tmp As String
                                                   
  On Error GoTo FileAccessError
  Counter = 1
  F = FreeFile
  Open fileToOpen For Input As #F
    Do While Not EOF(F)
        Input #F, tmp
        Sheets("Sheet1").Cells(Counter, 1) = tmp
        Counter = Counter + 1
    Loop
   
  Close #F
 
FileAccessError:
Select Case Err
  Case 52, 53, 76
    MsgBox "File dont exsist. Try again!", vbExclamation, "Test program"
    Exit Sub
  Case Else
    Resume Next
  End Select

End Sub

Koden er taget fra et af mine programmer. Du må gerne bruge koden til inspiration.

Hilsen

Lars

Hvordan importerer du data i Excel? Bruger du Guiden Tekstimport? Og hvad angiver du i givet fald som skilletegn?

Det var da en utrolig lang "smøre" bare for at indsætte en fil i Excel. Men hvis jeg nu har 30 filer, så skal jeg vel indsætte denne lange "smøre" 30 gange, eller hvad?

Det burde være nemt nok hvis du lige svarer på jkrons spørgsmål især ved hvilket tegn du vil adskille dine data fks. komma eller semikolon eller ......

Koden adskiller ved linieskift i en tekstfil.
Dvs. hvert linienummer i en tekstfil bliver sat en i en celle.

Hilsen

Lars

Jeg håber ikke at jeg har misforstået dit spørgsmål.

Jeg har ikke prøvet at markere 30 filer, for at se om programmet læser alle 30 filer ind på en gang.

Hilsen

Lars

Men hvad bruger du en tsp-fil til. Jeg kender ikke formatet.

Hilsen

Lars

Indeholder dine fil information som i dette eksempel?

                                      Equation  1
                                      ============

                Method of estimation = Ordinary Least Squares

Dependent variable: CONS
Current sample:  1961 to 1975
Number of observations:  15

          Mean of dep. var. = 626.527
    Std. dev. of dep. var. = 105.195
  Sum of squared residuals = 1911.53
      Variance of residuals = 147.040
  Std. error of regression = 12.1260
                  R-squared = .987662
        Adjusted R-squared = .986712
              LM het. test = .513322 [.474]
              Durbin-Watson = .616923 [.000,.002]
Breusch/Godfrey LM: AR/MA1 = 9.22897 [.002]
Breusch/Godfrey LM: AR/MA2 = 8.69666 [.013]
          Jarque-Bera test = .659462 [.719]
            Ramsey's RESET2 = 6.96993 [.022]
            F (zero slopes) = 1040.62 [.000]
            Schwarz B.I.C. = 60.3492
            Log likelihood = -57.6411

            Estimated  Standard
Variable  Coefficient    Error    t-statistic  P-value
C        -63.3408    21.6135    -2.93061      [.012]
GNP      .676823      .020981    32.2586      [.000]

Hvor du vil have placerert værdien fra f.eks. "Adjusted R-squared" i en celle for sig selv?

Undskyld de mange indlæg ;-) , men kommer hele tiden i tanke om nye spørgsmål.

Hilsen

Lars

Jeg har fundet ud af det selv. Jeg gik ind i Data -> Importer eksterne data -> importer data ... så gik det faktisk meget nemt. Jeg prøvede åbenbart ikke nok selv før jeg skrev et indlæg her. Sorry!

Jeg ved faktisk ikke, hvad en tsp-fil er, men det var det eneste jeg kunne få ud af den. Det var en fil (eller mange) med en masse koordinatpunkter foruden et nummer til at identificere det enkelte punkt.  Disse tal var separerede med et mellemrum.

Undskyld ulejligheden og tak for "opmærksomheden"!!!  ;-)
Pernille