Vb Application

Status
Niet open voor verdere reacties.
J

Jan1978

Gebruiker
Lid geworden
13 mrt 2010
Berichten
33
Hallo

Ik ben bezig om een programma te schrijven / maken voor het werk in visual studio 2013 en dat lukt me aardig.
nu loop ik toe tegen een probleem waar ik niet uit kom.

Als ik het programma start zegt die met een invulvenster dat er een naam conflict is dat ik een nieuwe naam moet invullen.
als ik hier een andere naam invul loop de programma verder zoals het hoort.

Graag zou ik willen weten hoe ik die naam conflict weg kan krijgen.

Met vriendelijke groet,

Jan
 
Er is dus ergens 2x dezelfde naam gebruikt waar hij een probleem mee heeft maar je geeft veel te weinig informatie om er verder iets zinnigs over te kunnen zeggen.
 
Hallo

Hieronder een deel van de code.

Code: 
    Private Sub Button20_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button20.Click
        'Onderstaande code schrijft de tekst van de tekstbox naar een txt betstand

        My.Computer.FileSystem.WriteAllText("c:\BC\value1.txt", TextBox1.Text, False)

        'Onderstaande code opend excelworkbook voert de excelcode uit en schrijft deze naar een txt bestand

        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet

        xlApp = New Excel.Application
        xlWorkBook = xlApp.Workbooks.Open("C:\BC\program\hartmaat.xlsm")
        xlWorkSheet = xlWorkBook.Worksheets("BC")


        xlWorkBook.Close(SaveChanges:=False)
        xlApp.Quit()
        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlWorkSheet)

        'Onderstaande code importeerd de txt file naar textbox 2

        Dim strFile As String = "C:\BC\x_waarde.txt"
        Dim sr As New IO.StreamReader(strFile)

        TextBox2.Text = sr.ReadToEnd()

        sr.Close()

        'Onderstaande code importeerd de txt file naar textbox 3

        Dim stFile As String = "C:\BC\value1.txt"
        Dim s As New IO.StreamReader(stFile)

        TextBox3.Text = s.ReadToEnd()

        s.Close()

    End Sub

Als ik bij het invul venster op annuleren druk stop de code bij:
Code: 
xlWorkBook = xlApp.Workbooks.Open("C:\BC\program\hartmaat.xlsm")

Grt Jan
 
Op zich is daar eigenlijk niks verkeerds aan te zien maar ik zou wel alle variabelen die met xl beginnen laten beginnen met bijvoorbeeld xc.
De variabelen die met xl beginnen zijn door Excel gereserveerd, dus als deze beschikbaar komen als je een Excel object maakt krijg je naam conflicten.
 
Hallo edmoor

Ik heb alle xl veranderd in xc maar de naamconflict blijf komen.
Als ik op annuleren druk krijg ik wel een foutcode misschien heeft u hier iets aan:

Uitzondering van HRESULT: 0x800A03EC

Deze fout geeft die weer bij de regel welke ik aangeef hierboven.

grt Jan
 
Ok, dat van die xl variabelen was ook een "long shot"
Zelf heb ik die code iets anders in elkaar gezet m.b.t. het gebruik van het Excel object en werkt het zonder problemen.
Ik heb een reference toegevoegd naar de Microsoft Excel Object Library en vervolgens het volgende in de code:

Bovenin het project:
Code: 
Imports Microsoft.Office.Interop

En achter de Button:

Code: 
    Dim xlWorkbook As Excel.Workbook
    Dim xlapp As Excel.Application
    Dim xlWorkSheet As Excel.Worksheet

    xlapp = New Excel.Application
    xlWorkbook = xlapp.Workbooks.Open("C:\BC\program\hartmaat.xlsm")
    xlWorkSheet = xlWorkbook.Worksheets("BC")

    xlWorkbook.Close(SaveChanges:=False)
    xlapp.Quit()
 
Laatst bewerkt:
Hallo Edmoor

Ja die reference had ik al toegevoegd ik heb jou code uitgeprobeerd maar ik blijf de naamconflict houden.
Zou ik het hele program in een zip eens posten zodat je er eens naar wilt kijken.

grt Jan
 
Ik wil best even kijken als je het project post in plaats van alleen de executable.
 
Hallo Edmoor

Ik heb een zip gemaakt van de dir bin in dir project anders werd de bestand te groot.

Al vast bedank voor het kijken van het program.

Grt JanBekijk bijlage 204136
 
Dat is alleen het programma met wat bijbehorende zaken en niet het project (.sln)
Dit moet ik aan kunnen passen omdat je refereert aan Office 15 (2013) en die heb ik hier niet.
 
De SLN is de indexfile van het project, zonder de bijbehorende projectnaam map heb je er niks aan.
Dat zal de map "Ordernummer Controleren" zijn?
 
Oke ja deze map is ingepakt te groot zou ik dit via de mail na uw mogen sturen
 
Da's jammer. Ik heb Visual Studio 2012 en kennelijk wil die de VB forms van VS2013 niet openen :(
 
Ja dat is jammer in ieder geval heel erg bedank voor de moeite.

Misschien is er iemand anders die een oplossing heeft.

Grt Jan
 
Vast wel. Het is handig dat het project nu vanaf een openbaar punt te downloaden is.
Dan kan iemand met VS2013 er even naar kijken.
 
Hallo Edmoor,

Ik heb vanmiddag dezelfde code in een nieuwe project geplakt en alles loopt als een zonnetje.
Nog bedankt voor het mee denken.

Grt Jan
 
Ok, opgelost dus. Wel fijn uiteraard maar jammer dat nu de oorzaak niet bekend is.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan