één sheet als Tekst file versturen per mail

[roywaarts]

Hallo,

Ik heb een Excel document met verschillende tab's
ik wil in VBA een macro maken die één bepaalde sheet verstuurd als TXT bestand aan een opgegeven email adres.

zodat de ontvanger het tekst bestand kan importeren in zijn Excel document

Ik moet het op deze manier doen omdat ik de bestanden niet met elkaar kan koppelen omdat ze niet op de zelfde server staan

Hoop dat iemand mij kan helpen

Groeten,

Roy

 

[Timshel]

csv?

 

[roywaarts]

ja kan ook?
Liever tekst

 

[Thoralf]

Kijk eens op de site van Ron de Bruin: site

 

[roywaarts]

Die heb ik bekeken, maar heb helaas niet gevonden wat ik zocht.
Het zit namelijk zo:

Elke vestiging maakt een eigen rooster in Excel, in de Excel document zit een Tabel waarin alle uren worden bijgehouden.
Er is één verzamel document met een tab voor elke vestiging, daarin worden alle opgestuurde export geïmporteerd zodat er van alle vestigingen een rapportage gemaakt kan worden

Ik heb namelijk een import voor het tekst bestand gemaakt:

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & UserForm1.TextBox1.Text, Destination _
        :=Range("$A$1"))
        .Name = "test"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

 

[gast0660]

Hallo,
Bij deze in bijlage
Als je de bijlage in excel wil versturen dan verander je deze regel
FileExtStr = ".txt": FileFormatNum = -4158
in een van de volgende
FileExtStr = ".xlsb": FileFormatNum = 50
FileExtStr = ".xlsx": FileFormatNum = 51
FileExtStr = ".xlsm": FileFormatNum = 52
FileExtStr = ".xls": FileFormatNum = 56
of als csv
FileExtStr = ".csv": FileFormatNum = 6

 

[roywaarts]

Dat ziet er goed uit!

kan je:
TempFileName = "Export"

ook laten verwijzen naar een cell?
bijvoorbeeld in blad1 cal A1 staat: Den Haag 01-01-2016

Zodat het bestand Den Haag 01-01-2016.txt komt te heten?