Spara/justera en xls-fil vid export - div fel

[Shape_sthlm]

Jag exporterar en tabell till Excel. Det fungerar, men jag får inte riktigt till det.

 

1. För det första så protesterar XP och varnar för makron, virus och sånt. Hur ändrar jag dessa inställningar? eller kan jag skriva koden på nåt annat sätt?

 

2. Om användaren har en fil öppen som heter temp.xls så blir det ju oxå kaos. Hur sköter jag det snyggt i koden?

 

3. Vill att kolumnerna i xls-filen ska vara autojusterade i bredd. Kan jag göra det i kod/skapandet av filen, eller måste jag första skapa, sedan öppna, sedan justera och sist spara och stänga igen?

 

Private Sub Kommandoknapp92_Click()

Dim strQName As String, strXLFile As String, strName As String

On Error GoTo Fel:

strQName = "qry_Annulationer"
strName = GetUserName()
strXLFile = "C:\Documents and Settings\" & strName & "\Skrivbord\temp.xls"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strQName, strXLFile
If MsgBox("Vill du visa filen?", vbYesNo) = vbYes Then FollowHyperlink strXLFile

ExitFel:

   Exit Sub


Fel:
   MsgBox Err & " " & Error$
   Resume ExitFel
End Sub

 

Hoppas ngn har lust att svara lite här även om det är fredagseftermiddag...

 

 

/M

[Monshi]

1: Kopiera inte VBA-kod till nya boken? Fast det kanske inte finns några?

 

2: kanske skapa ett unikt filnamn?

http://www.freevbcode.com/ShowCode.Asp?ID=450

 

3: Antar att du exporterar från Access. Mmh, nja, du vet jag inte riktigt... men det blir nog till att skapa-öppna-fixa-spara-stänga filen.