2016-06-28 30 views
0

レポートランナーがSSRSレポートをExcelにエクスポートしたときにシート名を指定するために、hereと表示されているように、私が考えていたことや他の人々の提案を試しました。今のところ何も働いていません。SSRSレポートをExcelにエクスポートしたときに、SSRSレポートのVBScriptを使用するイベントはありますか?

コードを入力してVBScriptを書くことはできますか? VBScriptを使用してデータ値を割り当てたり調整したりすることはできますが、SSRSでは「OnGenerate」などのイベントのコードを記述することができますか?

答えて

1

私はSSRSを一度も使用していないので、どのようにエクスポートするのかわかりません。 ただし、アプリケーションnew_Workbookイベントを設定して、開いている新しいワークブックをトラップし、SSRSレポートツールの製品である手がかり/機能を確認することができます。

例: 「mySSRS_Report20160628.xlsx」のようにエクスポートして保存すると、「mySSRS_」という文字列を確認することができます。

これを行うには、私の例では$ A $ 2のように、生成されたシートの同じセルに一貫して 'ページ名'を表示させる必要があります。

アドインが必要なので、ワークブックとcAppEventsと呼ばれる新しいクラスモジュールを作成し、その中でこれを置く:

Option Explicit 
Private WithEvents app As Application 

Private Sub app_WorkbookOpen(ByVal Wb As Workbook) 
    Dim i As Long 
    If InStr(1, Wb.Name, "mySSRS_", vbTextCompare) Then 
     For i = 1 To Wb.Worksheets.Count 
       Wb.Worksheets(i).Name = Wb.Worksheets(i).Range("A2").Value 
     Next i 
     Wb.Save 
    End If 
End Sub 

Private Sub Class_Initialize() 
    Set app = Application 
End Sub 

そのワークブックのはThisWorkbookモジュールでは、このコを置きますデイン:

Private newApp As cAppEvents 

Private Sub Workbook_Open() 
    Set newApp = New cAppEvents 
End Sub  

Excelアドインとして保存します。 [ファイル] - [オプション] - [アドイン]をクリックしてアドインを管理し、ファイル名のボックスにチェックを入れます。

「mySSRS_」という文字列を含む名前のワークブックを開き、セル$ A $ 2のデータ。 あなたは考えを得る....

+0

ありがとう、しかしこれはSSRSから成し遂げなければならないので、適用できません。 Excelファイルは、SSRSによって提供される「エクスポート」オプションを使用して作成されます。それはおそらく不可能です、私はストローで握っていただけです。 –

関連する問題