• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA code voor openen bestand in dezelfde map

Status
Niet open voor verdere reacties.
Met Winrar kan je ook aangeven niet een .rar maar een .zip te maken.

Clipboard01.jpg
 
Laatst bewerkt:
Ohh, alweer iets geleerd :-) ik klik meestal rechter muisknop en dan 'Add to (bestandsnaam)'.

Maar nu heb ik een zip bestand en kan ik deze nog steeds niet uploaden. Ik krijg geen foutmelding maar zie het bestand ook niet in de lijst van bestanden.

Inmiddels ook winzip gedownload maar ook met dit programma lukt mij niet om de gezipte bestanden te uploaden.
 
Laatst bewerkt:
Je doet het toch wel via de geavanceerde opties?
Capture.JPG

Klik daarna op de paperclip.


Het is niet echt de wenselijke gang van zaken hier, maar plaats hem anders eens op Filedropper en plaats hier dan de link:
http://www.filedropper.com/
 
Laatst bewerkt:
Ik weet niet precies wat je bedoelt met geavanceerde opties. Heb winzip geïnstalleerd en dan gewoon via rechter muis knop als zip bestand opgeslagen. Daarvoor met winrar heb ik gedaan precies zoals op de foto die je had geplaatst gedaan.

Maar fijn dat het voor deze keer toch via een andere weg kan.

Hier is de link naar de eerste bestand (met de code die gelinkt is naar de tweede bestand)

http://www.filedropper.com/firstfilewithlink

en hier is de link naar de tweede bestand die geopend moet worden door de eerste bestand

http://www.filedropper.com/secondfile
 
Ik zie het al. ThisWorkbook.Path is waarschijnlijk door de XLS Padlock compiler vertaald naar de waarde op het moment van compileren.
Capture.JPG

Da's lastig.
 
Sorry laatste plaatje had ik niet gezien.

Ik had de laatste plaatje in je bericht niet gezien.. en nee.. ik klik altijd op de blauw knopje +reageer op bericht
 

Bijlagen

  • foto.jpg
    foto.jpg
    87,5 KB · Weergaven: 40
Na een druk op Ga geavanceerd krijg je veel meer mogelijkheden.

Heb je #26 gezien?
 
Ja, ik heb #26 gezien :-(

Enig idee hoe ik dit kan oplossen?

Of zou het gewoon onmogelijk zijn?
 
De fout is het gevolg van het compileerproces. Ik zie geen oplossing.
 
Wordt vervolg

Ik heb zojuist de vraag in de forum van XLS padlock gesteld. Als ik daar antwoord krijg zal ik het hier plaatsen.

In ieder geval bedankt voor alle moeite!!
 
Ik denk dat ze er eigen functies voor hebben en dat je bijvoorbeeld dit moet gebruiken:
XLSPadlock.PLEvalVar("XLSPath") & Filename

Ik heb me er niet in verdiept dus kan er verder geen uitleg over geven.
Het forum waar ik naar verwees zal daar een betere vraagbaak voor zijn.
 
@edmoor,

Als je in de opties van je profiel deze instelling gebruikt, heb je alles onder de knop van "Reageer op bericht".
Geavanceerde interface - WYSIWYG
 
Daar heb je me eerder al eens op gewezen en niet meer aan gedacht :eek:
 
@shalhevet:
Heb je deze post ook gelezen bij dat forum? De vraag komt ongeveer op hetzelfde neer en de oplossing staat er bij:
https://www.gdgsoft.info/t/create-and-save-a-workbook-in-same-folder-than-exe-file-solved/1606

In plaats van Thisworkbook.Path gebruikt hij een extra functie:
Code:
Public Function PathToFile(Filename As String)
    Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
    PathToFile = XLSPadlock.PLEvalVar("EXEPath") & Filename
End Function
 
Laatst bewerkt:
Dank je :cool:
Maar het staat vlak onder de vraag van shalhevet, bij Suggested Topics.
Aardige suggestie lijkt me :)
 
Laatst bewerkt:
Super goed :-)

Inderdaad goede speurwerk edmoor :-)

Ik heb inmiddels via de hulp van XLS padlock de volgende code gevonden:

in een module:

Code:
Public Function PathToFile(Filename As String)
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
PathToFile = XLSPadlock.PLEvalVar("EXEPath") & Filename
Exit Function
Err:
PathToFile = ""
End Function

en dan in de sheet zelf:

Code:
Sub Test_File()
DoSomethingWith(PathToFile("data.xls"))
End Sub

ik weet dat ik "data.xls moet wijzigen naar mijn eigen bestandsnaam maar dan nog werkt deze code bij mij niet.

Weet iemand van jullie of ik nog iets anders in deze code moet wijzigen om het wel werkend te krijgen?
 
De functie mag in dezelfde module als de Sub Test_file, maar dat is meer voor het gemak.
Maak er eerst eens dit van zodat je kan zien wat er gebeurt:
Code:
Sub Test_File()
    MsgBox PathToFile("data.xls")
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan