0

タイトルはほとんどすべてを物語っています。私はこのクエリをExcelの特定の列にエクスポートして、個別のExcelファイルを大量に作成する必要がないようにする方法を探しています。

クエリ自体は日付を使用して計算を行い、その年の各月に対して実行したいと思います。したがって、擬似コードでは次のようになります。 

For i = 1 to 13  
  Export Query with to cell i with parameters 
    StartDate = DateSerial(Me.txtYear, i, 1), 
    EndDate = DateSerial(Me.txtYear, i+1, 1)
  i++
Next

また、現在、計算は月として吹き替えられていますが、動的に変更して実際の月をフィールドヘッダーにすることができれば、すばらしいと思います。

4

1 に答える 1

2

データを作成するクエリを作成できる場合は、これに沿った何かが役立つはずです。

私がExcelにデータをドロップするために使用するコードでは、これを使用してヘッダーを記述します。

fldCount = rs.Fields.Count
For iCol = 1 To fldCount
    xlWs.Cells(1, iCol).value = rs.Fields(iCol - 1).Name
Next

次に、これでA2のワークシートにデータを書き込みます

xlWs.Cells(2, 1).CopyFromRecordset rs
于 2012-08-08T20:38:42.360 に答える