Just nu i M3-nätverket
Jump to content

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


Shape_sthlm

Recommended Posts

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...