excel documenten gebruiken in visual studio 2008?

[pontoe]

ey all,

ik probeer een programma te maken waarmee je veel links kunt bewaren. dus, als je op nieuw drukt, kan je een naam invoeren, en de links. druk op save, en hij bewaart ze. nu wilde ik dat bewaren in een excel document doen, omdat ik dat ergens had gehoord, maar ik heb geen flauw idee waar te beginnen... ik kan ook nergens goede tutorials vinden, alleen voor vba, al geeft die ook een error... maar goed, ik wil dus visual studio 2008 gebruiken. is dit mogelijk? p.s. in het hoofdscherm komt er ook nog een dropdownbox met daarin al de namen die ingevoerd zijn.

 

[old Hippy]

Waarom niet in een db opslaan?? een stuk makkelijker iedere link in de database
en met een combobox uitlezen. anders mischien met Microsoft.Office. excel.Interop

 

[Pizara]

DB kan ook , excel is makkelijker aanpasbaar en voor iedereen toegankelijk.

heb een stukje code voor je geprogrammeerd dat werkt. Je moet alleen het reference van excel toevoegen.

(Menu)Project => Add Reference => .NET => Microsoft.Office.Interop.Excel (v11.0 voor 2003 , v12.0 voor 2007)

Zet een button op je form, pas je path voor je bestand aan en probeer dan deze code eens.

Imports Microsoft.Office.Interop.Excel

Public Class Form1

    Dim Excel As Microsoft.Office.Interop.Excel.Application
    Dim WorkSheet As New Microsoft.Office.Interop.Excel.Worksheet
    Dim MijnCell As Microsoft.Office.Interop.Excel.Range
    Dim Bestand As String = "c:\Test.xlsx"




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Excel = CreateObject("Excel.Application")

        Excel.Workbooks.Open(Bestand)
        Excel.Visible = False
        Excel.DisplayAlerts = False
        Excel.AlertBeforeOverwriting = False
        WorkSheet = CType(Excel.Sheets.Item(1), Microsoft.Office.Interop.Excel.Worksheet)

        Dim MijnInteger As Integer = 1
        MijnCell = WorkSheet.Cells(MijnInteger, 1)
        Dim MijnString As String = "TestString"

        Do While MijnCell.Text <> Nothing
            MijnCell = WorkSheet.Cells(MijnInteger, 1)
            MijnInteger = MijnInteger + 1
        Loop

        Clipboard.SetDataObject(MijnString)
        WorkSheet.Paste(MijnCell)
        WorkSheet.SaveAs(Bestand)

        Excel.Workbooks.Close()
        MijnCell = Nothing
        Clipboard.Clear()
        Excel.Quit()

        Dim ExcelProcess() As Process = Process.GetProcessesByName("EXCEL")
        For Each Process As Process In ExcelProcess
            Process.Kill()
        Next
    End Sub

End Class