求助，如何使ACCESS導(dǎo)出到EXCEL后，單元格能自動調(diào)整寬度

daviee

平臺的導(dǎo)出按鈕代碼
Private Sub cmdExport_Click()
On Error GoTo Err_Handler
    Dim strSQL As String
    Dim strExcelName As String
    strSQL = Me.sfmSubForm.Form.RecordSource
   
    '【導(dǎo)出語句】
     
    If InStr(1, strSQL, "Select") = 0 Then strSQL = "select * from " & strSQL & ";"
    If Me.sfmSubForm.Form.FilterOn = True Then
        strSQL = Replace(strSQL, ";", "") '去掉;號
        strSQL = "select * from (" & strSQL & ") as qryA where " & Me.sfmSubForm.Form.Filter
    End If
   
    '【導(dǎo)出結(jié)果】
    strExcelName = Me.Caption & Format(Date, "_yyyymmdd")
    gf_ExportToExcelBySql strSQL, strExcelName
    Exit Sub
Err_Handler:
    gf_MsgBox "", errError:=Err
End Sub

怎么能讓導(dǎo)出到EXCEL后，單元格自動調(diào)整寬度？

daviee

盟威的這個ExportToExcel 函數(shù)做得很方便
”說明
此函數(shù)實際上就是將打開Excel，復(fù)制窗體數(shù)據(jù)，粘貼到Excel，調(diào)整格式，然后保存這一系列的手工操作進行了自動化實現(xiàn)封裝。使用復(fù)制、粘貼的方式比使用CopyFromRecordset等方式兼容性更好，且可以將Access中的格式一同復(fù)制過來。數(shù)據(jù)復(fù)制完成后會進行調(diào)整行高列寬、取消網(wǎng)格線顯示、添加框線、凍結(jié)行首（StartRange所在的行）等格式化處理�！�

不知道Office中國的這個gf_ExportToExcelBySql函數(shù)是否能做到這樣。。。

daviee

有高手能把這個函數(shù)改一下嗎？

roych

daviee 發(fā)表于 2019-3-29 09:42
有高手能把這個函數(shù)改一下嗎？

這個函數(shù)沒寫出來，沒人知道自定義函數(shù)的內(nèi)核代碼的。讓大家去猜么？
至少要有這個函數(shù)的代碼，才能根據(jù)這個函數(shù)來定制或者優(yōu)化的。你聯(lián)系下站長或者admin的那個賬號吧。

tmtony

導(dǎo)出Excel的需求 有很多個性化的需求。可以自己寫代碼來做，可以對excel進行很完全 的控制的
可以參考這里版主們的源碼
http://www.mzhfr.cn/thread-117269-1-1.html
http://www.mzhfr.cn/thread-96531-1-1.html
http://www.mzhfr.cn/thread-96865-1-1.html
http://www.mzhfr.cn/thread-75418-1-1.html
http://www.mzhfr.cn/thread-96119-1-1.html

daviee

tmtony 發(fā)表于 2019-3-29 17:04
導(dǎo)出Excel的需求 有很多個性化的需求�？梢宰约簩懘�碼來做，可以對excel進行很完全 的控制的
可以參考這里 ...

謝謝！實現(xiàn)的方法有多種，如果能夠在這個平臺的函數(shù)上優(yōu)化，那就最好不過了！

希望站長或admin管理員能把這個函數(shù)代碼放出來，或做升級時更新。