copy data zonder verdere opmaak vanuit notepad file in excel

[ronald27]

Bekijk bijlage Map1.xlsxHi,
Ik heb in een tabblad genaamd riskcijfers een auto verhaal staan wat verdeeld is over meerdere cellen. Bepaalde cellen worden op maandbasis geupdate zodat het verhaal een klein beetje aangepast wordt. Wanneer ik nu rechtstreeks kopieer en plak in WORD dan wordt de layout niet echt makkelijk leesbaar. Dit euvel is te verhelpen door Notepad te gebruiken en vervolgens de tekst zonder opmaak in 1 cel (cel B17) binnen excel weer terug te plaatsen.

Het kopieren en plakken in Notepad lukt me met deze code

Sub test()
'The range that contains the values
Range("B3:M12").Copy
'Start Notepad And let it recieve focus
Shell "notepad.exe", vbNormalFocus
'Send the keys CTRL+V To Notepad (i.e the window that has focus)
SendKeys "^V"
End Sub

Nu dient er dus een uitbreiding plaats te vinden binnen deze code zodat de juist geimporteerde tekst in Notepad in zn geheel weer gekopieerd wordt en vervolgens geplakt wordt in het tabblad waar het oorspronkelijk ook is uitgekomen maar dan in cel B17.
Heeft iemand een idee?

alvast bedankt
Gr Ronald

 

[edmoor]

Volgens mij staat na de Range("B3:M12").Copy het hele spul in het Klembord en kan je het daarvandaan zo in B17 plaatsen. Dan heb je Notepad helemaal niet nodig.
http://excelhelphq.com/how-to-read-or-access-the-clipboard-with-excel-vba

 

[snb]

Ik zal maar niet vragen waar dit allemaal goed voor is.

Sub M_snb()
    [B3:M12].Copy
  
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
       .GetFromClipboard
       [B17] = .GetText
    End With
End Sub

 

[edmoor]

Twee zielen, één gedachte

Daarnaast kan je het vanuit Excel uiteraard via het Clipboard ook direct in het betreffende Word document plaatsen.
Dat kan zelfs nog zonder tussenkomst van het Clipboard.