*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Macro: link naar een file op de C schijf.  (gelezen 983 keer)

0 leden en 1 gast bekijken dit topic.

Offline MartG

  • Lid
  • *
  • Berichten: 37
  • Geslacht: Vrouw
  • Oplossing.be
Macro: link naar een file op de C schijf.
« Gepost op: 08 december 2022, 23:36:17 »
Beste,

Ik ben een Macro aan het maken. In deze macro zou er een file moeten opengaan op de C-schijf. Maar blijkbaar vindt hij de schijf niet en geeft hij hier een foutmelding.

Sub Data2()
'
' Data2 Macro
'

'Delete alles van Data sheet
    Sheets("Data").Select
    Columns("D:Z").Select
    Selection.ClearContents
   
'Open de Varia Copim File
Workbooks.Open Filename:="C:\Mart\VARIA COPIM BE.xslx"
    Range("A1,C1,F1,G1,H1,I1,J1,L1,M1,N1,O1,Q1,R1,S1,T1,U1,AC1,BU1,BV1,CX1").EntireColumn.Select
    Selection.Copy
    Windows(filenaam).Activate
    Sheets("Data").Select
    Range("D1").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Workbooks("VARIA COPIM BE.xlsx").Close savechanges:=False

End Sub


Workbooks.Open Filename:="C:\Mart\VARIA COPIM BE.xslx" --> bij deze lijn blijft de debugger altijd hangen.
In bijlage vind je een printscreen van de locatie van de file.
Wat zou er volgens u kunnen misgegaan zijn.

Alvast bedankt voor jullie hulp
Met vriendelijke groeten
Mart Geerts
Gelogd

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: Macro: link naar een file op de C schijf.
« Reactie #1 Gepost op: 09 december 2022, 06:43:55 »
Beste....

er zit een fout in uw extensie....

wijzig xslx eens naar xlsx...


groetjes,
BlackDevil
Gelogd
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Margriet1932

  • Lid
  • *
  • Berichten: 43
  • Geslacht: Vrouw
  • Hey, ik ben nieuw hier !
Re: Macro: link naar een file op de C schijf.
« Reactie #2 Gepost op: 09 december 2022, 10:44:59 »
het gebruik van "select" is eerder af te raden, het heeft geen toegevoegde waarde en vertraagt de macro.
Zoiets zou dus kunnen (met gecorrigeerde naam zoals BlackDevil) :
Code: [Selecteer]
Sub Data2()

     Dim shData: Set shData = Sheets("Data")
 
     'Delete alles van Data sheet
        shData.Columns("D:Z").ClearContents

     'Open de Varia Copim File
     Workbooks.Open Filename:="C:\Mart\VARIA COPIM BE.xlsx"
     Range("A1,C1,F1,G1,H1,I1,J1,L1,M1,N1,O1,Q1,R1,S1,T1,U1,AC1,BU1,BV1,CX1").EntireColumn.Copy
     shData.Range("D1").PasteSpecial Paste:=xlPasteValues
     Workbooks("VARIA COPIM BE.xlsx").Close savechanges:=False

End Subeventueel had die file ook aan een variable kunnen toegewezen zijn.

Code: [Selecteer]
Sub Data2()

     Dim shData: Set shData = Sheets("Data")

     'Delete alles van Data sheet
     shData.Columns("D:Z").ClearContents

     'Open de Varia Copim File
     Set WB = Workbooks.Open("C:\Mart\VARIA COPIM BE.xlsx")
     Range("A1,C1,F1,G1,H1,I1,J1,L1,M1,N1,O1,Q1,R1,S1,T1,U1,AC1,BU1,BV1,CX1").EntireColumn.Copy
     shData.Range("D1").PasteSpecial Paste:=xlPasteValues

     Application.DisplayAlerts = False
     WB.Close savechanges:=False
     Application.DisplayAlerts = False

End Sub
Gelogd

Offline MartG

  • Lid
  • *
  • Berichten: 37
  • Geslacht: Vrouw
  • Oplossing.be
Re: Macro: link naar een file op de C schijf.
« Reactie #3 Gepost op: 09 december 2022, 13:39:47 »
Bedankt voor beide reactie, heb de extensie verandert en niet meer select gebruikt, en het werkt.
Nu heb ik wel een volgend probleem. De VARIA COPIM File moet op het einde toe, maar deze is redelijk groot waardoor excel automatisch een note geeft over het klembord (zie bijlage). Jullie een idee of ik dit ook in de macro kan zetten zodat ik niet meer apart op "Nee" moet duwen?

Alvast bedankt
Mart
Gelogd

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.178
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Macro: link naar een file op de C schijf.
« Reactie #4 Gepost op: 09 december 2022, 14:36:37 »
Hallo Mart,

Misschien met:

Code: [Selecteer]
(Excel programma).DisplayAlerts = False    ???

:) SoftAid :)             
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Margriet1932

  • Lid
  • *
  • Berichten: 43
  • Geslacht: Vrouw
  • Hey, ik ben nieuw hier !
Re: Macro: link naar een file op de C schijf.
« Reactie #5 Gepost op: 09 december 2022, 14:48:53 »
inderdaad met displayalert ervoor op false en achteraf op true zetten
Code: [Selecteer]
Application.DisplayAlerts = False
     WB.Close savechanges:=False   'of    Workbooks("VARIA COPIM BE.xlsx").Close savechanges:=False
     Application.DisplayAlerts = true
3 reacties geleden werd mijn code niet teruggezet op True
Gelogd

Offline MartG

  • Lid
  • *
  • Berichten: 37
  • Geslacht: Vrouw
  • Oplossing.be
Re: Macro: link naar een file op de C schijf.
« Reactie #6 Gepost op: 12 december 2022, 09:59:57 »
Hey,

Merci terug voor alle hulp. Gestest en het werkt, ik krijg geen melding meer.
Maar nu loop ik natuurlijk tegen een ander issue aan  ;)

Ik zou graag alles van een kolom converteren naar een getal.
In de printscreen zie je hoe ik dit anders handmatig zou doen (conclusie voor alle cellen van die kolom, ook al hebben niet alle cellen van die kolom deze "actie" echt nodig).

Uitkijken naar jullie feedback.

Groetjes
Mart
Gelogd

Offline Margriet1932

  • Lid
  • *
  • Berichten: 43
  • Geslacht: Vrouw
  • Hey, ik ben nieuw hier !
Re: Macro: link naar een file op de C schijf.
« Reactie #7 Gepost op: 12 december 2022, 10:46:02 »
hello Mart,
het is een beetje moeilijk met enkel een schermafbeelding, maar ik  gok als je de punten door kommas vervangt, dat je er bent anders moet er straks toch nog een 2e regel bij, dus alvast een 1e poging.
Lukt het niet kan je anders een bestandje met 5 rijen meesturen om te proberen, liefst van het origineel dat gekopieerd wordt.
Code: [Selecteer]
shdata.Range("D1").PasteSpecial Paste:=xlPasteValues
     With shdata.Range("D1").CurrentRegion
          .Replace ".", ","
     End With
Gelogd

Offline MartG

  • Lid
  • *
  • Berichten: 37
  • Geslacht: Vrouw
  • Oplossing.be
Re: Macro: link naar een file op de C schijf.
« Reactie #8 Gepost op: 26 december 2022, 16:20:12 »
Hey,

Merci alvast voor al jullie hulp, heb wel een andere optie gebruikt als oplossing.

Met dit ben ik er "doorgeraakt"
 With [U:U]
    .Replace ",", "."
    .NumberFormat = "0.00"
 End With
Bij uw voorstel bleef hij een foutmelding geven bij "shdata"...

Tot snel voor mijn volgende issue :)

Groetjes
Mart

Gelogd
Pagina's: [1]   Omhoog
 


www.combell.com