ACCESS Excelの出力についてすみません。MoveNextが抜けてました。 Private Sub Excel_Out() Dim oRs As Recordset Dim strSQL As String Dim Ex As Excel.Application 'エクセルリンク用変数（App） Dim Wb As Excel.Workbook 'エクセルリンク用変数（App） Dim Ws As Excel.Worksheet 'エクセルリンク用変数（App） Dim FileName as string Dim X As Long Dim Y As Long FileName = "×××××.xls" 'エクセルファイルの指定 Set Ex = New Excel.Application 'エクセルとのセッション開始 Set Wb = Ex.Workbooks.Open(FileName) 'ワークブックの指定
