Keskustelu: Ohjelmointikysymykset: VBA: Excel taulukko

Miten tuonne iffin jälkeen sais siinä olevan jutun?

Private Sub Form_Load()
status.SimpleText = App.Path
On Error GoTo ErrorHandler   ' Enable error-handling routine.
    Dim Otsikko As Object
    Set Otsikko = CreateObject("ADODB.Recordset")
    Dim ohjelmantieto As String
    Dim soluntieto As String
    Dim soluntieto2 As String
    Dim polku As String
    Dim tiedostonnimi As String
    Dim taulukonnimi As String

    polku = App.Path & "\"
    tiedostonnimi = "Test.xls"
    taulukonnimi = "EmployeeDetails"

    Otsikko.CursorLocation = 1
    Otsikko.CursorType = 1
    Otsikko.LockType = 1

    ohjelmantieto = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & polku & tiedostonnimi
    Otsikko.Open "SELECT * FROM [" & taulukonnimi & "$]", ohjelmantieto

    Do Until Otsikko.EOF
        soluntieto = IIf(Not IsNull(Otsikko.Fields("Name").Value), Otsikko.Fields("Name").Value, "Null") & vbCrLf
        soluntieto2 = IIf(Not IsNull(Otsikko.Fields("Firma").Value), Otsikko.Fields("Firma").Value, "Null") '& vbCrLf


        Otsikko.MoveNext

         Text1.SelText = soluntieto
         If InStr(soluntieto2, "~") = 0 Then
         'Miten tähän kohtaan saa että kirjoittaa soluun firman nimen perään merkin ~
         lista.ListItems.Add = soluntieto2
         End If
    Loop
    Otsikko.Close
    Set Otsikko = Nothing
    'Unload Me
    Exit Sub           ' Exit to avoid handler.
ErrorHandler:                ' Error-handling routine.
'//Create Error Log File in Application Path
    Open App.Path & "\" & "Virheet.log" For Append As #1
    Write #1, "Error Number : " & Err.Number, "Error Description : " & Err.Description, Now ' Write comma-delimited data.
    Close #1 ' Close before reopening in another mode.
    '// Up to This
    Err.Clear
    End
End Sub

lista.ListItems.Add = soluntieto2 & chr(126)

Siis tarkoitin että exceltaulukon soluun, kun löytyy oikea solu?

Selitäppä paremmin - haluatko siis tietää miten viitataan solun arvoon vai miten lisäät solun arvon perään ~ merkin???

solunviittaus.arvo=solunviittaus.arvo & chr(157)
Otsikko.Fields("Firma").Value=Otsikko.Fields("Firma").Value & chr(126)
chr(126) on ascii vastine tilde-merkille (~)

Sorry Antti L. kopioin suoraan MSDN:stä:

Set the value of cell A1 on Sheet1 to 100 Worksheets("Sheet1").Range("A1").Value = 100

Set the value for a group of cells on the active worksheet Range("B2:B14").Value = 10000

Set the formula for cell B15 on the active worksheet Range("B15").Formula = "=Sum(B2:B14)"

Set the font to bold Range("B15").Font.Bold = True

Set the font color to green Range("B15").Font.Color = RGB(0, 255, 0)

Set an object variable to refer to a single cell Set rngCurrent = Range("A1")

Set an object variable to refer to a group of cells Set rngCurrent = Range("A1:L1")

Format all the cells in a named range Range("YTDSalesTotals").Font.Bold = True

Set an object variable to a named range Set rngCurrent = Range("NovemberReturns")

Set an object variable representing all the used cells on the Employees worksheet Set rngCurrent = Worksheets("Employees").UsedRange

Set an object variable representing the group of related cells that surround the active cell Set rngCurrent = ActiveCell.CurrentRegion

Set an object variable representing the first three columns in the active worksheet Set rngCurrent = Range("A:C")

Set an object variable representing rows 3, 5, 7, and 9 of the active worksheet Set rngCurrent = Range("3:3, 5:5, 7:7, 9:9")

Set an object variable representing multiple noncontiguous groups of cells on the active sheet Set rngCurrent = Range("A1:C4, D6:G12, I2:L7")

Remove the contents for all cells within a specified group of cells (B5:B10) while leaving the formatting intact Range("B5", "B10").ClearContents

Joo, tällä ei ole muuta tekemistä excelin kanssa kuin että ohjelma lukee taulukosta tietoja ja lisää ne listviewiin jos firman nimen perässä ei ole ~merkkiä.
Puretaanpa näin asiaa: kun aktivoin listviewissä jonkun firman nimen niin miten saan ohjelman lisäämään exceltaulukon soluun missä aktivoitu firman nimi on, firman nimen ja nimen perään ~merkin. Eli eikö nyt käy niin että kun listview päivitetään niin siinä ei enää näy äskeistä firmaa.

Kuten huomaat olen aloittelija mutta KIITOS vaivannäöstanne!

Itse asiassa ei... Kyllä listview nayttää firman nimen edelleen, ellet nimenomaan kyselyssä sitä määrittele pois... se tosin on aika kehno viritys... ennemmin lisää viereiseen soluun merkki, joka kertoo esitetäänkö teksti listviewssä.

Voisitko kertoa miksi firma pitää poistaa, voiko sen poistaa kokonaan listalta vai vain tilapäisesti?

Jos sen voi kokonaan poistaa niin poista silloin excelistä koko rivi.