インデックスとExcel.exeのエラー

親愛なるチーム、

Office 2016を使用しています.
Office 2016を使用したデータベースを開発しました.
エンドユーザーを展開した後(Office 2013を使用)Applicationの問題に直面しています.
1.データベースを開く.「参照ファイルExcel.exeを検索する」というポップアップです.
2.これがあなたの参照のためのコードです.

オプションデータベースを比較する
private sub cmdchemicalsearchexport_click()
DIM Saveloc as stringとして、strworksheetpath、strwwichsheetpathとして、XL、オブジェクトとして、WB

ムラとしてのexportsheetオブジェクトとして、バリアントとしてのヘッダー、バリアントとしてのOIHeader
「DAO.DatabaseとしてのDIM DB、DAO.RecordSetとしてのexportRecordSet」データベースとして
DIM= currentDBを設定します. saveloc= environ( "userprofile")&"\desktop \"

SAVEROC= STRWORKSHEETPATH&「ChemicalSearchReport.xlsx」
set xl= createObject( "excel.application")
wb= xl.workbooks.add
を設定します ExportSheet= WB.Worksheets(1)を設定する(1) exportSheet.Name= "化学検索"
xl.application.visible= true
set rs= db.openrecordset(Me.RecordSource)
exportSheet.cells(1,1).value= "貿易名"
exportSheet.cells(2,1).value= "supplier"
exportSheet.cells(3,1).value= "category"
exportSheet.cells(4,1).value=「物理的外観」
exportSheet.cells(5,1).value= "Active Engredient" "
exportSheet.cells(6,1).value= "地域の可用性"
exportSheet.cells(7,1).value= "EPA#"
ExportSheet.cells(8,1).value= "comment"
exportSheet.Range( "A1:A8").font.bold= true
長い間、Dim Rownum、Colnumは長い
薄暗い
i= 0
rownum= 1
colnum= 2
RS.MoveFirst
index= 1からrs.fields.count
RS.Fields(i).name<>"sds"とrs.fields(i).name<>"cid"
rs.eofではありませんが
exportSheet.cells(Rownum、Colnum).value= rs.fields(i).value
rs.movenext
Colnum= Colnum + 1

ループ
Rownum= Rownum + 1
colnum= 2

の場合は終了 i= i + 1
RS.MoveFirst
次の
エクスポートシート付き
.Cells(1、i).Select TestRange= .Range(.cells(1,1)、.cells(i-2、i + 1))

testrange.borders.linestyle= XLContinuous

exportsheet.cells.entirecolumn.AutoFit

終了SUB

エラー1:

環境への指差(Saveloc= Environ( "UserProfile")&"\Desktop \")

コンパイルエラー:
プロジェクトまたはライブラリが見つかりません
エラー2:

コメントしています( "userprofile")&"\desktop \"

インデックスを指す(index= 1からrs.fields.countのための参照端の場合)
プロジェクトまたはライブラリを見つけることができません

このコードで遅いビデオンを使用する方法を拡大します.