Excelbestand openen dmv button

[ZZ1]

Hallo,

Ik ben bezig met een progje waarin je op een button kunt klikken en waarbij dan een excelbestand wordt geopent.

Ik ben al een tijdje bezig maar kom er maar niet uit. Wie kan mij opweg helpen??

De excelbestanden worden op de server opgeslagen.


Alvast bedankt!!!

 

[migthy84]

Hallo,

Ik ben bezig met een progje waarin je op een button kunt klikken en waarbij dan een excelbestand wordt geopent.

Ik ben al een tijdje bezig maar kom er maar niet uit. Wie kan mij opweg helpen??

De excelbestanden worden op de server opgeslagen.


Alvast bedankt!!!

Ja hoor welke taal werk je in

 

[foxie1982]

Verdikke... dat moet echt lukken...
Ik heb hele voormiddag zitten zoeken op dit forum en niet echt iets kunnen vinden. Daardoor had ik zelf maar een topic gestart een paar minuten geleden met juist dezelfde vraag :-/

Ik wacht dus ook vol spanning op het antwoord... Ik werk in het engels...

Alvast bedankt.

 

[migthy84]

taal bedoel ik mee programmeer taal

vb, csharp

 

[foxie1982]

goh... wat ben ik een dweep

Ik ben bezig in visual basic 2008 express edition...

 

[ZZ1]

Ik werk met Microsoft Visual Basic 2005 Express Edition.

Hoop dat iemand mij op weg kan helpen of een voorbeeld kan geven met een bestandje

Volgens mij maakt het niet uit dat het op de server geplaatst is ipv je eigen werkstation, als je maar de juiste pad aan toevoegd.

Alvast bedankt!!

 

[Jabber]

Misschien helpt deze draad je een eindje op weg:
http://www.helpmij.nl/forum/showthread.php?t=406188

 

[migthy84]

VB2008

stap 1:Ga in het menu naar project -> add reference
Stap 1a:Ga naar de tabblad browse
stap 1b:Ga naar de Excel locatie ( normaliter is dit c:\program files\ microsoft office\office12\ ( in het geval van 2007)
stap 1c:selecteer excel.exe
------
Het object excel kan je nu aan roepen. vergeet niet een object aan te maken.

Dim objExcel As New Microsoft.Office.Interop.Excel.Application
 
With objExcel
            .Workbooks.Open("c:\bestaandnaam.xls")
            .Visible = True
        End With

dit open het excel bestaand bestaandnaam.xls op c:\

Je kan het natuurlijk ook doen door

Dim objExcel As New Microsoft.Office.Interop.Excel.Application
 
objExcel.Workbooks.Open("c:\bestaandnaam.xls")
ojbExcel.Visible = True

Ik zou je even een tip voor in de toekomst meegeven als je 97-2003 wilt opslaan (.xls ipv van xlsx)

objExcel.ActiveWorkbook.SaveAs(bestandNaam, FileFormat:=-4143)

let erop je dient elke sheet /blad apart op te slaan.
bestandNaam = duur de locatie waar het staat in het voorbeeld is dit c:\bestaandnaam.xls)
Ik hoop je hiermee een stuk geholpen te hebben.

Je kan het ook oplossing om het te doen via adodb. maar ik raad je aan om het via Excel object zelf te doen omdat je dan alle functies van excel kan gebruiken.

 

[migthy84]

@zz1

Ik werk met Microsoft Visual Basic 2005 Express Edition.

Hoop dat iemand mij op weg kan helpen of een voorbeeld kan geven met een bestandje

Volgens mij maakt het niet uit dat het op de server geplaatst is ipv je eigen werkstation, als je maar de juiste pad aan toevoegd.

Alvast bedankt!!

Dim App_Path As String = AppDomain.CurrentDomain.BaseDirectory. Zorgt ervoor dat je altijd uit de basis direct werkt waar het exe aanwezig is.

Je kan zonder veel problemen ook gratis over stappen naar 2008

 

[migthy84]

als het niet lukt wil ik wel een screenleveren hoe je een references ligt in vb

dit namelijk nodig.

 

[ZZ1]

Hallo mighty84,

Ik ben echt extreem nieuw met Visual Basic 2005 Express Edition.
En heb een boek door gelezen en geoefend maar daar wordt dit onderwerp niet in besproken.

Jou voorstel zou ik wel willen als het mogelijk is dat je een klein voorbeeldje laat zien

Want moet ik de volgende code verwerken onder de Button??:

Dim objExcel As New Microsoft.Office.Interop.Excel.Application
 
With objExcel
            .Workbooks.Open("c:\bestaandnaam.xls")
            .Visible = True
        End With

Alvast bedankt!!

 

[ZZ1]

Hallo mighty84,

Ik had net op me PC visual basic geinstaleerd. Had hem eraf gegooid omdat ik er verder nooit meer iets mee deed, ga hier hopelijk verandering in brengen .

Dus kon jou code nog niet testen.
Heb de reference van excel toegevoegd,
En toen jou code achter de button geplaatst.

Dit werkt piek fijn!!

Maar als ik deze locatie wil veranderen voor het bestand van de server af te halen wordt de code dan als volgt??

Dim objExcel As New Microsoft.Office.Interop.Excel.Application
 
With objExcel
            .Workbooks.Open("server\d:\files\test.xls")
            .Visible = True
        End With

En wat betekend de volgende zin die jij voor mij had geplaatst:

Dim App_Path As String = AppDomain.CurrentDomain.BaseDirectory.

Alvast bedankt!!

 

[migthy84]

@ zz1

sorry ik heb denkelijk een verkeerde aanname gedaan.

Dim App_Path As String = AppDomain.CurrentDomain.BaseDirectory.

De code Is wel super handig. Stel je voor je hebt hebt excel bestanden bij je exe bestand staan. En elke keer verplaats je de map. Dan hoef je niks meer in je code te veranderen.

De defenitie(code (dim)) is niet meer dan het achter halen waar het exe bestaand op dat moment aanwezig is.Met andere woorden de base-directory
(voor de oude programmeurs was dit app.path het stukje code die het veroorzaakte)

Heb zelf even een test gedaan met jouw code ,maar het werkt niet
je dient even je server even te gebruiken door \\192.168.2.1\ (met andere worden via ip)

 

[ZZ1]

Hallo migthy84,

Geen probleem hoor!!

Ik zal dit morgen testen want dan ben ik weer op het werk.
Het is de bedoeling dat elk werkstation een snelkoppeling van dit .exe bestandje krijgt.
En door op de button te klikken van de desbetreffende bestand zal hij worden geopend en deze bestanden bevinden zich op de server.

Ik zal deze code morgen testen:

Dim objExcel As New Microsoft.Office.Interop.Excel.Application
 
With objExcel
            .Workbooks.Open("\\192.168.2.1\d:\files\test.xls")
            .Visible = True
        End With

Je hoort het resultaat wel!

Heel erg bedankt voor de info!!

 

[migthy84]

graag gedaan , je kan me ook pm als je nodig is

 

[ZZ1]

Ik ben niet echt van de afkortingen...!!

pm?

 

[migthy84]

Ik ben niet echt van de afkortingen...!!

pm?

private message. Krijg ik gewoon via mijn mail binnen.

 

[ZZ1]

Dit gaat voor mij niet:

Alleen verenigingsleden en donateurs (minimaal €7,50) kunnen priveberichten sturen

Maar ik zal morgen op dit topic wel reageren wat de uitslag is!!
Hoop dat het progje werkt!!

 

[migthy84]

even een tip maak waar mee je directory uitleest.

form1: 1 button en 1 textbox

textbox1.text = AppDomain.CurrentDomain.BaseDirectory.

 

[ZZ1]

Hallo migthy84,

Ik heb het zonet getest, en het werkt !!!!

met de volgende code is het gelukt:

    Private Sub Open_mapetiketten_normaal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Open_mapetiketten_normaal.Click
        Dim objExcel As New Microsoft.Office.Interop.Excel.Application

        With objExcel
            .Workbooks.Open("\\server\file\test.xls")
            .Visible = True
        End With

Met de ip adres 192.168.1.1 kreeg ik een fout melding...

Heel erg bedankt voor al jou hulp!!