dotNETportal.cz

Dobrý večer, potrebujem pomoc preniesť rádovo 1000 hodnôt do Excelovskej šablony (súboru). Prenos do nového Excel súboru som našiel pripájam kód, ale do existujúceho sa mi nedarí. Pracujem s VB2005, Excel2003.Ďakujem

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim oExcel As Object
        Dim oBook As Object
        Dim oSheet As Object

        'Start a new workbook in Excel.
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add

        'Create an array with 3 columns and 100 rows.
        Dim DataArray(99, 2) As Object
        Dim r As Integer
        For r = 0 To 99
            DataArray(r, 0) = "ORD" & Format(r + 1, "0000")
            DataArray(r, 1) = Rnd() * 1000
            DataArray(r, 2) = DataArray(r, 1) * 0.07
        Next

        'Add headers to the worksheet on row 1.
        oSheet = oBook.Worksheets(1)
        oSheet.Range("A1").Value = "Order ID"
        oSheet.Range("B1").Value = "Amount"
        oSheet.Range("C1").Value = "Tax"

        'Transfer the array to the worksheet starting at cell A2.
        oSheet.Range("A2").Resize(100, 3).Value = DataArray

        'Save the Workbook and quit Excel.
        oBook.SaveAs("c:\" & "Book2.xls")
        oSheet = Nothing
        oBook = Nothing
        oExcel.Quit()
        oExcel = Nothing
        GC.Collect()
    End Sub

Dobrý den,

s Excelem nepracuju denně, takže jenom hádám. Místo vytvoření nového souboru (sešitu) chcete otevřít již existující soubor. Zkuste tedy příkaz Workbooks.Add nahradit příkazem Workbooks.Open, kterému předáte adresu šablony.

 oBook = oExcel.Workbooks.Open("c:\sablona.xls")

http://msdn.microsoft.com/en-us/library/...

Úprava nepomohla. Odkaz je na VBA ja potrebuje VB2005.

Ďakujem za snahu. Prešiel som veľa odkazov ale všetky riešia

zápis z VB do nového zošita nie do existujúcej šablony (Excelu).

Teraz ma napadlo že to ešte skúsim do WORDU.

Nedalo mi to spát, tak jsem to vyzkoušel. Následující kód otevře soubor sablona.xls, do buňky A2 zapíše text a uloží jako sablona2.xls. Vše mi funguje podle očekávání.

    Sub Main()
        Dim app As New Microsoft.Office.Interop.Excel.Application
        Dim wb As Workbook = app.Workbooks.Open("c:\sablona.xls")
        Dim sheet As Worksheet = wb.Worksheets(1)
        sheet.Range("A2").Value = "Text zapsaný z kódu"
        wb.SaveAs("c:\sablona2.xls")
        wb.Close()
        app.Quit()
    End Sub

Používám VB2010 a nareferencoval jsem Microsoft.Office.Interop.Excel ve verzi 12.0.0.0. Jak se projevuje, že vám to nefunguje? Vypisuje chybu (Exception)? Data se nezapíšou? Soubor se nevytvoří?

Už neviem čo mám skúsiť. Vo VB2005 ako aj vo VB2010 mi to robí to isté.

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim app As New Microsoft.Office.Interop.Excel.Application
        Dim wb As Workbook = app.Workbooks.Open("c:\sablona.xls")
        Dim sheet As Worksheet = wb.Worksheets(1)
        sheet.Range("A2").Value = "Text zapsaný z kódu"
        wb.SaveAs("c:\sablona2.xls")
        wb.Close()
        app.Quit()
    End Sub

Workbook,Worksheet nepozná. Hlási chybu "is not defined".

Skúšal som pridať referencie "Office 11.0 aj Office 12.0"

ale až ak som pridal refereciu na "Excel 11.0" tak prešla prvá deklarácia.

"Dim app As New Microsoft.Office.Interop.Excel.Application"

Všimol som si že po pridaní ref. na Office pridá

"Dim app As New Microsoft.Office.Core"

"

Podľa toho čo som našiel na NETe tak majú pre každú verziu čosi iné. Ak by ste mal čas a ochotu mi pomôcť tak by som bol rád. Ďakujem

Na začátku souboru s kódem musíte importovat požadovaný namespace

Imports Microsoft.Office.Interop.Excel

nebo psát celé názvy např.

Dim wb As Microsoft.Office.Interop.ExcelWorkbook = app.Workbooks.Open("c:\sablona.xls")

Zapoměl jsem to zmínit, přišlo mi to jako samozřejmost.

Veľmi pekne ďakujem, už mi to ide vo VB2005 aj vo VB2010.

Skoro som sa tešil. Po pridaní 'namespace'

Imports Microsoft.Office.Interop.Excel

došlo k chybe v príkaze

ev.Graphics.DrawString(Label3.Text, New Font("Courier New", 11, FontStyle.Bold), Brushes.Black, x, y)

ktorý používa 'namespace'

Imports system.drawing.printing

Nastala chyba "Font": 'New' cannot be used on an interface

Doposiaľ som to používal - fungovalo.