Exporteren van individuele cellen naar individuele .txt bestanden?

[hmwul]

Is het mogelijk om individuele cellen (in 1 kolom) te exporteren naar individuele .txt bestanden?

In bijgaand bestand (let niet op de rare namen, heb zomaar wat bij elkaar geraapt, het slaat nergens op)

Exporteren naar:

W10-SYS32-PShell-v1-0-Mods-MS-PShell-ODataUtils-MS-PShell-ODataAdpt.txt
W10-SYS32-PShell-v1-0-Mods-NetAdpt-MSFTNetAdptHardwareInfoFmt.txt
W10-SYS32-PShell-v1-0-Mods-NetAdpt-MSFTNetAdptRscFmt.txt
W10-SYS32-PShell-v1-0-Mods-NetAdpt-MSFTNetAdptStatisticsFmt.txt
W10-SYS32-PShell-v1-0-Mods-NetAdpt-MSFTNetAdptVPortFmt.txt

enzovoorts.


Thanks!

 

[snb]

Bedoel je exporteren naar of opslaan als

 

[hmwul]

De bedoeling is dat ik .txt files zou krijgen met als titel de cel inhoud.

Had al op Internet gezocht. Ik vrees dat er niet zoiets bestaat.

Op mrexcel heb ik een post gevonden met als titel "Excel VBA to Export individual cells to *.txt file"
Maja... ik kon daar (uiteraard) niks mee aan/geen wijs uit worden.

Toevallig(!)
Heb ik een workaround gevonden, maar dat werkt alleen in dit geval.

In het Excel bestaand is de inhoud van die kolom de namen van folders.
De folders staan, gelukkig, grotendeels onder elkaar.

Een handigheidje maak ik .txt bestanden van de foldernamen.

Zie attachment.

Maar, zoals gezegd, dat werkt toevallig alleen in dit geval en wanneer de folders bij elkaar staan.
Anders is het uiteraard geen doen.

Deze zaak maar laten rusten...

 

[edmoor]

Dus bijvoorbeeld A1 bevat de naam van een folder en in die folder wil je een .txt bestand hebben met als naam de inhoud van A1?
Dat is uiteraard geen enkel probleem, als dat je bedoeling is.

 

[hmwul]

De kolom bevat alleen de naam van de folder (zonder drive letter), dus zoals het witte gedeelte in de screenshot.

Ik heb een screenshot gemaakt van de stappen.

Ctrl-c in Excel
naar Explorer
ctrl-v (file name: clipboard.txt)
F2 rename
ctrl-v paste
voila

Maar dat voor alles ..

 

[edmoor]

Dat zegt nog steeds niet waar die .txt bestanden moetn worden opgeslagen.

 

[snb]

Sub M_snb()
  sn = cells(1).currentregion

  with createobject("scripting.filesystemobject")
    for j=1 to ubound(sn)
      .createtextfile sn(j,1) & ".txt"
    next
  end with
End Sub

 

[hmwul]

Dat zegt nog steeds niet waar die .txt bestanden moetn worden opgeslagen.

Oeps, inderdaad, dat was ik vergeten, niet bij stilgestaan, sorry.
Ik zou het in dit geval in D:\Temp opslaan.

 

[edmoor]

Zie #7 en voeg dat pad toe:

.createtextfile [COLOR="#FF0000"]"D:\Temp\" &[/COLOR] sn(j,1) & ".txt"

 

[hmwul]

Sub M_snb()
  sn = cells(1).currentregion

  with createobject("scripting.filesystemobject")
    for j=1 to ubound(sn)
      .createtextfile sn(j,1) & ".txt"
    next
  end with
End Sub

Wow...
Hartelijk dank! Werkt als een trein.

Super. :thumb: :thumb:

-

Bekijk bijlage 362314

-

Nogmaals dank.

@edmoor, met alle respect, echt niet lelijk bedoeld hoor, maar deze macro doet wat ik wil.
Ik bedoel hiermee te zeggen, laat het maar rusten, steek er geen tijd is, het is opgelost.
Toch hartelijk dank voor het meedenken! Nogmaals, niet lelijk bedoeld, okay?

 

[hmwul]

Zie #7 en voeg dat pad toe:

.createtextfile [COLOR="#FF0000"]"D:\Temp\" &[/COLOR] sn(j,1) & ".txt"

Oh, jij was sneller dan ik.
Dank voor je tip, zal ik zeker doen.

 

[edmoor]

@edmoor, met alle respect, echt niet lelijk bedoeld hoor, maar deze macro doet wat ik wil.
Ik bedoel hiermee te zeggen, laat het maar rusten, steek er geen tijd is, het is opgelost.
Toch hartelijk dank voor het meedenken! Nogmaals, niet lelijk bedoeld, okay?

Geen probleem hoor.
Het gaat erom dat je probleem is opgelost.
Niet wie daar de oplossing voor geboden heeft

 

[hmwul]

Ehm... vraagje
(ik durf het haast niet te stellen)
Bestaat er ook zoiets als currentselection of zoiets? weet ik veel.

De macro print altijd de hele kolom nu, incl kolom titel.
Ook wanneer ik slechts b.v. 10 regels selecteer.
Is er dan ook zoiets dat 'ie alleen de geselecteerde cellen doet?

Maar.. let op: als dat ingewikkeld wordt, met veel meer 'gedoe', laat het dan direct zitten!


Ben al blij met de huidige macro...

 

[edmoor]

Dat kan simpel.
Maak er dan dit van:

Sub M_snb()
[COLOR="#FF0000"]  sn = IIf(Selection.Rows.Count = 1, Cells(1).CurrentRegion, Selection)[/COLOR]

  With CreateObject("scripting.filesystemobject")
    For j = 1 To UBound(sn)
      .createtextfile "D:\Temp\" & sn(j, 1) & ".txt"
    Next
  End With
End Sub

 

[emields]

of zo als er lege rijen tussen staan.

 

[hmwul]

Hartelijk dank nogmaals.

Sorry dat ik nu pas reageer.
Moest gisteren weg en vanmorgen kwam er ook van alles tussendoor.

Super oplossing...:thumb: :thumb: