Afvangen vervolgvraag bij opslaan als TXT met bijzondere extentie.

[SPros]

Beste Lezers,

In een programa van mij worden twee tekstbestanden gemaakt ieder met een eigen extentie.

Een ervan krijg ik niet goed opgeslagen.

Ik sla een werkblad op als textbestand met onderstaande code.

NaamPlatAsciiBaiBestand = "Ba" & Mid(VertrekDatumEnTijd, 3, 6) & ".BAI"

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
PadActiveWorkbookIftmin & "\AsciiTbvBaswinBAI\" & NaamPlatAsciiBaiBestand, FileFormat:= _
xlTextMSDOS, CreateBackup:=False

Application.DisplayAlerts = True



Echter, als ik het bestand wil afsluiten met close krijg ik deze vragen:
1. Het bestandstype dat u in het Vak OpslaanAls hebt geselecteerd biedt geen ondersteuning voor werkmappen die meerdere bladen bevatten.
Als u het actieve blad wilt opslaan, klikt u op OK.

Ik klik op OK en dan verschijnt de vraag:

2. xxxxx.BAI bevat mogelijk functies die niet compatibel zijn met Tekst (MS-DOS). Wilt u de werkmap in deze indeling behouden?
Als u deze indeling wilt behouden, waardoot icompatible functies worden weggelaten, klikt u op Ja.

Ik klik dan op ja en het gaat goed.

Deze laatste vragen wil ik afvangen maar met "Application.DisplayAlerts = False" gaat dat niet goed.

Rara, hoe kan dat en wat moet ik er aan doen?

Bvd,

Paul Ros

 

[snb]

Application.DisplayAlerts = False
  With ActiveWorkbook
   .SaveAs  .path "\AsciiTbvBaswinBAI\Ba" & Mid(VertrekDatumEnTijd, 3, 6) & ".BAI", xlcsv
  end with
Application.DisplayAlerts = True

als je alleen 1 bepaald werkblad wil opslaan doe je dat natuurlijk met

Application.DisplayAlerts = False
  c0=Thisworkbook.path
  ThisWorkbook.sheets("export").copy
  With Activeworkbook
     .SaveAs  c0 & "\AsciiTbvBaswinBAI\Ba" & Mid(VertrekDatumEnTijd, 3, 6) & ".BAI", xlcsv
     .close false
  end with
Application.DisplayAlerts = True

 

[SPros]

Beste SNB,

Helaas het werkt niet. Mijn code zet onderstaande tekst in het Bai-bestand MAAR zonder " ".
Door de wijze van opslaan zet excel de " " er bij en dan werkt de externe applicatie die het Bai-bestand moet lezen niet.

S0103SPros YYA200910302300
"L00101TC3345692 20Y1486 5.1 O2 IIIDANGEROUS NOS 000024516"
"L00201MO6730088 20Y1498 5.1 O2 IIIDANGEROUS NOS 000000000"

Het moet dus zijn:
S0103SPros YYA200910302300
L00101TC3345692 20Y1486 5.1 O2 IIIDANGEROUS NOS 000024516
L00201MO6730088 20Y1498 5.1 O2 IIIDANGEROUS NOS 000000000

Kun je me verder helpen?

Bvd

Paul

 

[SPros]

Beste Lezers,

Wie kan mij helpen met dit probleem.

Zie boven staande vragen.

Groet,

Paul Ros

 

[snb]

Uit je reaktie is niet duidelijk wat je met mijn suggestie hebt gedaan.