常連

注目の的

社会貢献

拍手喝采

自己紹介

# 概要
ClickOnceアプリケーションをユーザが更新する際、ユーザの端末内の.NET Frameworkが4.0以前のものであれば強制的に4.5以降のバージョンにアップデートする方法を探しています。


# 詳細
ClickOnceアプリケーションを発行し、ダウンロード専用サーバからダウンロードする際、下記のようなエラーがポップアップ出るようになりました。
※アプリを作成した.NetFrameworkのバージョンは4.5、ダウンロードしようとしたバージョンは3.5です。


```
Cannot continue. The application is improperly formatted.Contact the application vendor for assistance.
```

詳細を見ると次のようなエラーです。

```
ERROR SUMMARY
Exception reading manifest from https://hogehoge : the manifest may not be valid or the file could not be opened.
Manifest XML signature is not valid.
SignatureDescription could not be created for the signature algorithm supplied.

```

[こちらの記事](http://stackoverflow.com/questions/12826798/manifest-xml-signature-is-not-valid)を見たところ、これは.NET Frameworkの4.0から4.5へのバージョンアップの際、SHAの形式が変更されたことに起因していることがわかりました。

そのため、.NET Framework 4.5よりも前のバージョンがインストールされている端末でアプリの更新を行う際には.NET Framework 4.5を強制強制的にダウンロードするようにしたいと考えVisual Studioで次のような設定を行いました。

```
発行 -> 必須コンポーネントで下記にチェック。
・Microsoft.Net FrameWork 4.5（x86およびx64）
・Microsoft.Net FrameWork 4.5.1（x86およびx64）
・Microsoft.Net FrameWork 4.5.2（x86およびx64）
・Windowsインストーラ 4.5

発行 -> 更新で
・アプリケーションの更新を確認する にチェック
・アプリケーションの更新を確認する方法を選択してください:
 アプリケーションの開始前に行う を選択
```

しかし、.NET Framework 3.5がインストールされている端末でアプリを更新しようとしても.NET Framework 4.5はインストールされず、エラーも元のままでした。

ClickOnceアプリケーションの必須コンポーネント設定に誤りがございますでしょうか？それともそもそもSHAの変更対応として適切ではないでしょうか？

ご教示よろしくお願いします。


# 動作環境
・.NET Frame Work 4.5
・.NET Frame Work 4.0以前
・Visual Studio2013

ClickOnceアプリケーションを起動する端末の.NET Frameworkをアプリ起動時にバージョンアップさせる方法を探しています。

CrystalReportsでエクセル出力をしたいと考えています。

現在のコードではxlsしか出力できない為、xlsxでも出力可能なように変更をしたいです。

sfdSaveDialog.Filterの指定をxlsxに変えてみたりしましたが、ダメでしたのでご教授お願いします。

以下 既存ソース例

        'ファイル形式、ディレクトリ、ファイル名の指定
        Dim strCurrentPath As String = Nothing
        Dim sfdSaveDialog As New SaveFileDialog()

        Try

            'カレントパスが移動してしまうため対処
            strCurrentPath = Directory.GetCurrentDirectory()


            ' ファイル選択
            sfdSaveDialog.InitialDirectory = Application.StartupPath
            sfdSaveDialog.Filter = "Excel 97-2003 ブック（*.xls）|*.xls"
            sfdSaveDialog.FileName = strNames

            If sfdSaveDialog.ShowDialog() <> Windows.Forms.DialogResult.OK Then
                Return
            End If


            ' 変数を宣言し、エクスポート オプションを取得します。
            Dim exportOpts As New ExportOptions()
            Dim diskOpts As New DiskFileDestinationOptions()
            Dim excelFormatOpts As New ExcelFormatOptions()


            Dim crExcel As ReportClass = crSource '出力Reports
            crExcel.SetDataSource(dsExports) '出力対象のDataSet
            exportOpts = crExcel.ExportOptions

            ' Excel 形式のオプションを設定します。
            excelFormatOpts.ExcelTabHasColumnHeadings = True

            exportOpts.ExportFormatType = ExportFormatType.Excel
            exportOpts.FormatOptions = excelFormatOpts

            exportOpts.ExportDestinationType = ExportDestinationType.DiskFile


            ' ディスク ファイルのオプションを設定します。
            diskOpts.DiskFileName = sfdSaveDialog.FileName
            exportOpts.DestinationOptions = diskOpts

            crExcel.Export()

CrystalReports Xlsx出力方法

Excel VBA初心者です。

施設コード```
人名	識別種類	2015/7/1	2015/7/2	2015/7/3	
K1		a    9：00	 14：00	10：00				
K1		b	10：00	15：00	22：00					
K1		c			  2		6			
K2		a	8：00	13：00	13：00			
K2		b	8：00	13：00	13：00					
K2		c	3			  	6			
K2		d	10:00	10:00	20:00					

コード
```	
上記の様なcsvファイルを下記の様に抽出したいのですが、どのような方法がありますでしょうか？

```
人名	当日日時	前日c有無	 a	     b
K1	 2015/7/1       ×	    9：00					
K1	 2015/7/2       ×	      	   15：00				
K1	 2015/7/3       ○						
K2	 2015/7/1       ×	    8：00	8:00				
K2	 2015/7/2       ○       13:00	13:00			
K2	 2015/7/3       ×	   13：00   13:00		
コード
```

条件
・データが空白な場所は無視
・データがある場合のみ追加


行単位でIf文・For文などを使い作ろうと試みているんですが、なかなかうまくいきません。何かいい方法などありますでしょうか？

コードの修正致しました。申し訳ございません。

宜しくお願い致します。