たまにプログラマOYAJIの備忘録

(2020.12) SAP Crystal Reports と Visual Studio 2019 （クリスタルレポート SP26）

2020-12-09T12:55:00.011+09:00

最近、とあるブログを参考にしたら壊れていたVS上のクリレポ環境が更に壊れる

と、散々な目にあったので、仕方なく自己解決

やりたいこと

・VisualStudio2010で作ったアプリをVisualStudio2019でメンテしたい

・クリスタルレポートのレポートも10年前に開発したが、VisualStudio2019で開発出来る様にしたい

開発機

・windows10 PRO 64bit

・VisualStudio2019

・VisualStudioInstaller

　拡張機能→拡張機能の管理→MicrosoftVisualStudioInstallerProjectを探しインストール

アプリ

・VisualStudio2010で作成

・WindowsFormソリューション

・VisualStudioInstaller

クリスタルレポートの状態　：　レポートの壊れ方

・レポートを開くと0と１の羅列 or レポートは開け編集出来るが実行時エラー

・VS2010でもVS2019でも駄目

レポートの実行エラーはレポートが要求しているVerと、

インストールされているSAPクリレポVerが合っていない

色々触るとエラーメッセージは変化するが結局動かず

が、インストーラーを作りMSIをインストールすると、

エンドユーザー環境でレポートが動く（VS内クリレポと客先ランタイムのVerが合致）

　↓

開発機で作成中アプリが要求するVerと、開発PCにインストールされているSAPクリスタルレポートのver問題

問題の原因からして、VS上の参照設定を正しくすれば問題なかったよう思います

よって解決というより、SAPクリスタルレポートの最新化（SP26化）です

2017年8月 Visual Studio 2017, 2015, 2013, 2012, 2010 と SAP Crystal Reports（クリスタルレポート）

2017-08-13T15:21:00.001+09:00

2017年8月　SAP Crystal Reports最新情報

VS2017はまだ対応中のよう

■今後のベースにすべき基ページが不明なため取り敢えず幾つか
（以前の記事から飛んでも上手く行く）

■ページは英語だがVS201xとDL場所さえわかればいい

■最近のSAPクリレポは以前のようVSバージョン毎にパッケージが別れてはおらず最新をDLすれば～VS2010までは使えるよう

■VS2010以前のパッケージは当ブログの過去記事リンク先からDL出来る可能性あるかどうか不明？

■上記より必要なパッケージはいつまでも大切に保管しておくしかない

画面copyを張っても、現在たまたま下記ページ群にて公開していて時が来れば公開URLが変わるので意味無いが、一応

１．
https://blogs.sap.com/2016/12/06/sap-crystal-reports-developer-version-for-microsoft-visual-studio-updates-runtime-downloads/

クリックするとwiki

２．wiki
https://wiki.scn.sap.com/wiki/display/BOBJ/Crystal+Reports%2C+Developer+for+Visual+Studio+Downloads

英語だが全訳が仕事ではないので無視、DLインストール出来れば良い
DOWNLOAD Crystal Reports developre・・・　と書いてあるのでクリック

　■メルアド入力、JAPAN選択、SAPメール不要ならNo、要るならYes

　■DV for VS：VSでクリレポを扱うため：DLインストール：必須
　■ランタイム（32bit、64bit）：クリレポ実行させる：DLインストール：必須
　■マージモジュールは以前必須、いま要るのかな？？一応DL

　DVインストール中
　このインストール後ランタイムインストールする？と聞かれる
　以前バグっていてそのまま続けるとランタイムがインストール出来なかった
　今回も、NO、を選択して終わらせた

　次にDLしたランタイムを単独インストール

一応・・

設計も動作も問題なし、win10、vs2010

Windows Form における注意点は、プロジェクトにMSのデータテーブルやデータセットをプロジェクトに持つと、データテーブルのスキーマやら制約やらキーやら、DBテーブルとの整合性がとれなくなると直ぐエラー出たり、クエリが失敗するのでその辺の経験は必要、でないとwinフォームはバグが～と騒ぐ輩になってしまう、別にwinフォームだから発生する問題ではない
とにかくVS上でMSが自動作成してくれる機能は上手く使えるところだけ使い、それ以外は手を出さない方が後々幸せでいられる、予告なし仕変もあるから

ただ！！面倒なくクリレポを使うには元になるデータテーブル（データセット）が必要、よってVSで一度ガラだけ作って（手作りは×、テーブルアダプターかデータセットを作り自動生成させる）あとはプログラムでsql書いてsqlcommand発行してデータ抽出してデータとガラをクリレポへ渡す、そんなオーソドックスなのが一番安全後々安心

ただ上記、プロジェクトにデータテーブルやデータセットを持つなと言っているのではなく、持っていたほうが全然楽で、余計なことはさせなければ良い、と言う経験があれば問題ない

私的には、未だ速度が必須な情報処理的なプログラムはwinフォーム＋オンプレSQL Server＋クリレポしかないと思っていて、多少無理ある事にも同意するけど時短だしこれしかない
よってwebはあり得んし、出現から10年以上？経つが一向に広まらんざむる（xaml）はその程度だし激めんどなのでこれもなし

客側（利用者）から見てもシステムなんて動けばいいだけで、しかも動作速度は速く、費用は激圧縮＝winフォーム＋クリレポ＝適役と思いますよ

古いMacBookPro(mid2010)でも、BootCampを使わずWindows10(64bit)をインストール出来る

2016-11-17T03:03:00.003+09:00

結論から言うと、インストール直後は安定、色々使ってみると少し不安定な気も？！
でもたま～にIEが終了してしまう程度で、使ってもいいかな？レベルです

（アホだから即Windowsのライセンス認証をしてしまった、様子見ればよかったのに・・だから使わないと大損！）

掲題：

・古いMacBookPro（mid2010）でも最新OS Sierraはインストール出来る
・しかしBootCampを使うとWindows10はインストールできない
・Appleが公式にそう謳っている

　Windows 10 をサポートする Mac コンピュータ

2012年以降のモデルはOK、でもそれ以前はNG、これちょっと悲しい。
そこでBootCampを使わず（当初使う予定だったが使えなかった）インストールしてみました。

参考：

参考にしたのはこちらのページ

　　Boot Campを使わずMacにWindows10をインストールする方法

この人のMACはWindows 10 をサポートする Mac コンピュータに入っているので、大分状況違いますがイメージ的にはこの流れ。
私の方はBoot Campのドライバをwinへインストールしていません（インストールできなかった）
それが違い。

※この人のwin10ブログは3回に分かれてましたが、上記最終回のみ参考にした方が良いです。それでは情報不足なら「Boot Camp windows10」でググればOK。

１．macにWindows10のisoを持って来てインストールDVDを作成（ブータブル可能なDVDを焼く）
２．ディスクユーティリティでmac上にWindows用パーティションを作成
３．macでboot先をDVDとして再起動させればDVDからbootし、winのインストールが始まる
４．終わり

手順載せようと思いましたが、参考ページと何も変わらないので止めます^^;

最後の４の手順だけ違うのでその点のみ。

・macOSは最新過ぎてちょっと危険な?!Sierra
・BootCanpも最新バージョン

OSは最新Sierra、BootCampも最新バージョンであるにも係らず、BootCampアシスタントからサポートディスク（ドライバ類のインストールディスク）を作ると、なんとWindows7用のディスクが作られてしまいます。

macはお節介だから、MacBookPro(mid2010)であることを認識しそういう事をしているのか？と思いまが、お蔭でインストールしたWindows10でエラーになりセットアップできませんでした。ホント余計なお世話。

すると下記の制約が発生。

・macOSからWindowsパーティションの内部が触れない
・Windowsからは、そもそもmacパーティションなど存在しないと言う様子
（パーティション間のやり取りはクラウド使えばよいですね）

・macで起動先をWindowsにすると次回からずっとWindowsが起動してしまう（正常な動き）
・macを起動したいときは、optionキーを押しっぱなしで電源を入れるとboot先選択画面が出るのでmacを選択
（BootCampサポートプログラムをwin10へインストール出来なかったため、mac起動、その他がチョイ面倒）

winを起動したいときは、通常通りmacで次回起動時のboot先にwinパーティションを選択すれば良い

これで終わり。

だと淋しいので、一応写真

Sierraですね～（私はwin上でプログラムを作るのでwinパーティションをかなり多く取っています）

こちらもSierraですね～

MacBookPro(mid2010)なのに、Windows10の64bitが動いてる！
理由は、CPUを筆頭とした関連ハードは元々64bitOK
なのにmacが無理やり32bitで古いOS動かしていただけ、よって性能の2/3を捨てていた訳ですね。勿体ない・・

レビューボタンをクリックしても何も起こらない！「このappleidは、app storeで使用されたことがありません」

2016-11-16T07:32:00.002+09:00

appleは親切かと思ったら、全然×でした。netで情報探さないと買ったOSもDL出来ない。酷～

既存のApple IDを使用し、App StoreやiTunes Storeにサインインを行う際に、
　「このApple IDは、App Storeで使用されたことがありません」
　「このApple IDは、iTunes Storeで使用されたことがありません」
というアラートが出る場合があります。

私のmacで前者メッセージが出たのでググって解決法を探すと、どうやらクレジットカード情報を登録（請求先の登録）するとDL可能になるとの情報を得た。

幾つかのページを参考に、その通り操作してみたが上手く行かない。

具体的には「このappleidは、app storeで使用されたことがありません」ダイアログが表示され、レビューをクリックすると画面が遷移し、やがてクレジットカード情報を登録する画面で登録。

となる予定だったが、myMacではレビューをクリックすると画面が真っ白になり、いくら待っても何も起こらず、何度やってみても駄目だった。

＜　対処法　＞

webがこんな適当でも、スマホなら超！極！激！力を入れている筈なので、iPhoneを使い同じことをやってみると・・
あっという間、いとも簡単に個人情報入力画面、そしてカード情報入力画面が表示され、1分で登録完了！

あとはmacに戻り、ダメapp storeページをリロードしたら、OSのDL出来ました。

※最初クレジットカード情報「なし」を選択してみたらDL出来ず
※改めてクレジットカード情報を入力するとDL可能になった

＜　上記は下記実施中に発生　＞

　マシン：MacBookPro（mid 2010）

アプリ開発環境を綺麗にしてから構築したい
　↓
Mac OS X 10.6.3 Snow Leopard（DVD税込2,400円で購入）
クリーンインストール
　↓
Mac OS X v10.6.8 統合アップデート v1.1（無料）
Mac OS X Lion～へのアップグレードを Mac App Store からできるようになります
　↓
OS X Mountain Lion（税込2,400円）
購入→メール到着まで3日かかる
このOSのDLでつまづいた
※残念なことにMountain Lionは既にapplのOSサポート期間が終了している（短命だね、macは）
　↓
（予定）macOS Sierra （無料アップグレード）
大丈夫なら・・何となく止めておいた方が良い感じ?!

OSバージョンアップはこちらのページを参考にさせてもらいました（感謝）
https://discussionsjapan.apple.com/thread/10170216?start=0&tstart=0

macは中身unixだからOS安いね?!　しかもむっちゃ軽いし

余談）

システム開発から完全引退しようと思っていたのに、、、結局引退できず
挙句いい歳してアプリ開発することになってしまいました、裏はクラウド（どちらも初体験）

結局自分はソフト以外何もできないのだな・・と、悟りましたよ
しかし派遣は年齢オーバーでOut！手軽に大枚稼ぐ手段無くなってしまいました

どうやら自分で仕事を作らないと食べていけない模様
若しくは、茶髪ピアス可！の仕事ならこの年齢でも全然OKみたいです

あなたの未来の・・・参考までに。

One Driveで毎回ログイン認証が出て困っているときの対処

2016-05-30T12:10:00.000+09:00

Office2013（ローカルにDLしてISOイメージをインストール：webインストールではない）を使ってEXCLEを多用してますが、そんなときOne Driveは大変便利。

しかし・・保存ボタンをクリックすると最近は毎度One Driveのログイン認証が出てきて、、余りに面倒で正直キレそうになります。私は二段階認証を行っているので毎度スマホに認証するか？と聞かれ、、キレ度が倍増。

これはOfficeが原因。OfficeのアップロードセンターとOneDriceとの絡みが上手く行かないらしく（上手く行く期間もあるのだけど、それが続かない）タスクトレイのOneDriceアイコンが×になり、これがキレそうになる原因。

そんな時の対処法は、至って簡単。
下記のチェックを外せばいい

ただこの操作を行う事による弊害は、、officeは元々1ファイルを共同作業出来る仕組が存在する。しかしこのチェックを外すとこの機能が使えなくなる・・らしい？と言うのは、実は検証していないのでそうらしい、としか言えない。

ただ無料のOneDriveなど個人が使うもので、仕事利用や法人なら365や他のクラウド使うでしょ？と思うので特に問題ないのでは？逆に困る人が出たなら、私的にはそれは別の意味で怖い・・

ただ・・、どうしてもofficeの機能が使いたいという方は・・、状況としては以下４つ。３番を試してみると良いかも知れません。

１．excelで保存ボタンを押す→OneDriveに×は出ない→即クラウドへUPされる
２．excelで保存ボタンを押す→OneDriveに×が出る→一度ログインする→以降、一定時間、即クラウドへUPされる→またログイン認証しろと出る
３．excelの保存ボタンを押す前にタスクバーのOneDriveアイコンを左クリック→オンラインで表示をクリック→ブラウザのOneDriveが表示される→するとexcelで保存ボタンを押しても×にならず即クラウドへUPされる
４．excelで保存ボタンを押すと毎回認証しろとダイアログが出現→ダメダメパターン＝諦めるしかない

本当にMSのクラウドは裏で仕様がコロコロ変わるようで（メンテのタイミング等あると思うが）１－４が交互に訪れます。
正直どうしようもないです＝どうしようも出来ない。

余談としては、本当にOneDriveは便利。MS好きでなければDropbox、googleドライブ、amazon!?などかな？

で、何が便利と言うと　PC⇔スマホ　この流れが「自動」で行われるから。

　■　スマホで写真を撮る　→　即！クラウドへUPされる（10秒あればPCでも参照できる）
　■　PCで画面プリント（PrintScreen）する　→　即！クラウドへUPされる（客PCやスマホ、myスマホで直ぐ見れる）
　■　PCでファイルをドラッグする　→　即！クラウドへUPされる
　■　PCソフト（ブラウザ系も）とスマホを使った二段階認証が素晴らしい

やはりスマホは便利すぎるから、性能は良いし、GPSも使え、あらゆる情報を取得でき、特に写真が綺麗でアプリも充実、どちらかと言うと私は写真系（記録する系）にその便利さを感じます。
とにかく撮りまくって（記録しまくる）事務所PCで纏めれば良い。PC画面のハードコピーも、客と電話しながらリアルタイムでハードコピーを見せ説明ができたりと便利に使ってます。

やはり人は文字より写真。人に何か説明するとき写真を見せれば1秒で終わる。準備も簡単。当然スマホやタブレットで見せる。その元ネタはPCで作る。作って保存ボタンをクリックするだけでクラウドへ自動UPされる。あー、便利！

私は仕事もプライベートも写真多用してますよ。わざとスマホで写真が保存されるアルバムに説明写真を入れておき、その中から見せる写真を探す。すると少しだけ私のプライベートを見せることにもなるので、相手も安心し壁を取り除いてくれたり、関係ない写真から余談が生まれ商談がスムースになったり（もちろん相手の特性次第だが）、飲み屋のおねーちゃんと急速に仲良くなったり、当然狙っている女性にも、わざとそういう写真を仕込んでおきます。すると、写真（アルバム）は非常に有効的で友好的に使えます。

という事で、これでofficeアップロードセンターとOneDriveの連動が切れ、OneDriveアイコンの×は消え、もちろん毎回認証の煩わしさから解放されました。

おわり

VisualStudioPro(MSDN)は、ライセンス（Open Value or Business）とMSアクションパック（MSパートナー用）、購入はどちらが安くてお得？

2016-05-17T13:46:00.003+09:00

VS Proをライセンス（Open Value or Open Business）購入するのと、アクションパック（MSパートナー用）で購入するのとでは、どちらが安く？お得？か？

但し、これ、そもそも比較対象がおかしいのですが（後記）・・・でもどちらがお得か！？強く気になります。

　　※※※※※※※※※※※※※※※※※※※

　　・・・ちなみにコード書くだけならVisual Studio Communityで良いのでは？
　　無料だしproと変わらんし、C#やVBからスマホのネイティブコード出力できるソフトも無料で使える？（要確認）
　　Express は制約がより強い＝面倒だからCommunity。
　　※最新情報はググって下さい

　　私はMSDNのサブスクライバから各種多々ソフトをDLしたいので、MSDN付きproかアクションパックを検討しています

　　※※※※※※※※※※※※※※※※※※※

Visual Studio professional（MSDNサブスクリプションつき）を買うには現在2つの選択肢があり
（価格はしょっちゅう変わるので現時点での参考値）

１．ライセンス　Open Value 又は Open Business
　　価格は販社により異なるが、大体同じ、nPressやライセンスオンラインで買うのが安い（MS直販はバカ高だから×）

　　・Open Valueは3年契約（一括払契約、分割3回払契約、がある）

　　　新規：1年分で6.8万*3年分
　　　更新：1年分で5.9万*3年分　2度目の契約（4年目～）更新価格で買える

　　・Open Businessは2年契約（一括払のみ）

　　　新規：1年分で7.4万*2年分
　　　更新：1年分で6.1万*2年分　2度目の契約（3年目～）更新価格で買える

２．アクションパック（MSパートナー）
　　1年：40,400円　→　税込43,632

３．パッケージ　残念ながら2015年に販売終了したよう

　　ライセンスに比べ数倍の？価格だったから元々微妙だったけどね
　　でももう買えない＝中古が馬鹿高く売られています

上記、ライセンスの方が多少高いが、たいして変わらない。

でも、アクションパックって凄いんですよ！

VSのMSDNだと各種DL出来るソフトのライセンスって開発用途でしか使ってはいけない＝テストや実験用途。それ以外に会社やプライベートで普通に使ってはダメ（Office2ライセンスを除く・・多分変わってなければ）

しかし、アクションパックだと普通に何処でも会社でもprivでも利用可能なライセンス！
例えば・・

　Windows 10 Enterprise × 10ライセンス
　VS PRO × 3ライセンス
　Office 365 (E3) 要するにワードエクセルアクセス等のOfficeとクラウド × 10ライセンス
　Azurer 毎月 100 米ドル分無料で使える（これはライセンス版も同じかな？）

上記、普通に販売店やMS直販で購入したら物凄い金額になると思うが、それが現在1年間でたった4万！＠＠税別

ちなみに以前のアクションパックでVSは使えなかったが知らんうちに使えるようになり、しかも！MSDNサブスクリプションがついた！（多々ソフトDLが出来る）

だから今回比較してみた訳です。

※マイクロソフトパートナーと言うのは、MSの販売や開発等のパートナーで、マイクロソフトに協力してます的な、云わばMS教に入会するような感じかな？私はビルゲイツ好きなのでMS好きです

※MSパートナーには数種ありますが登録メンバーなら簡単になれます。ページから必要事項を記入しMSから承認されればOK！netにも入会してみた～的な記事など落ちてますのでご参考に

　　　　しかし、そもそも比較対象がおかしい、と言ったのはVSの次の要件から

１．購入した Visual Studio サブスクリプション

　　社内または社外での開発とテスト

２．マイクロソフトパートナーネットワークを通じて提供された Visual Studio サブスクリプション

　　社内での開発とテストのみ
　　※社外の顧客向けプロジェクト、またはその他直接利益を生み出す活動には使用できません

要するにMSパートナになって購入したアクションパックのVisual Studioで作ったシステムを販売してはいけない！そう購入契約で明記されているので、作っても売物×、利益を得る行為×。よってマスタべーションで使うだけ＝社内でテスト的に使うしかないのです、2016年5月現在。※MSのアプリマーケットだと販売OKだったような気が？

販売しないシステムを作る人を見たことがないので（プログラムなら別だけど、それなら無料版VSで良いのでは？？）、よって比較すること自体無意味なのですが・・・、でも比較してみたいので！

では、比較！

大雑把に結論から言うと・・・

アクションパックは「私的」にはちょっと厳しいかな？
やはりライセンス（Open Value or Business）を買わないと厳しい、と言うより私的には面倒な感じ。

理由

アクションパックではMSDNサブスクライバからDL出来るソフトの制限が、ライセンス購入したVS proより多い。

アクションパックは最新の物は大体使えるが、過去のOSやDBが使えない！

私が痛いと思ったのは以下
・Windows 7 Professional
・Windows Server 2008 R2
・Windows Server 2012 R2
・SQL Server 2008 R2 Developer
・SQL Server 2008 R2 Enterprise
・SQL Server 2012 Developer Edition
・SQL Server 2012 Enterprise Edition
・SQL Server 2014 Developer Edition
・SQL Server 2014 Enterprise Edition
・Visual Basic 6.0 Enterprise
・Visual Studio 2010 Professional
・Visual Studio 2012
・Visual Studio Team Foundation Server 2015
・Expression 3 Studio
・SharePoint Designer 2013

上記、アクションパックだとサブスクライバからDL出来ない。（2016年5月現在）
※対象の変更はしょっちゅう変わるみたいだから、最新情報が欲しい方は当ページ最下部へ！

ただこれは考え方次第。Sqlserverはexpressなら無料でDL可だから、それを使えばよく、マネジメントスタジオだって今は無料。でも昔のOSやDB環境は用意できない。
ただ勿論、それら問題にならない人なら、当たり前だが全然問題にならない。

と言う感じですが、が、最初に書いたそもそも論が問題になるので比較は可笑しい、と思いますが、一応です！

（余談）

実は直近3年間、大枚叩いてVSのプレミアム、OPEN VALUEで新規3年100万で買って結構痛かった。やっと今年から更新価格になると思ってたらなんと！VSプレミアムがエンタープライズに吸収され、価格が年に5万（新規だと15万）上がってしまいガックリ、だからもう止めようかと。

ビルゲイツがいなくなってからMSは普通の米国大企業になってしまい、金の使わされ方がキツクなってしまった。だから顧客、開発者、共にシェア落としたのかね？
ただ時代に追われ最近はMSも変わり無料で使えるソフトも増えたので、もうproでいいや、と言うことで今回検討してみました。

ちなみに私は悩んだ末、OpenValueでVS pro（MSDN）を購入することにしました。但しOffice365は複数アカウント毎年金払っているから、その辺は嫌だけど。
でもよくよく考えてみるとライセンス＋アクションパック＝大体年間10万。このコース良いかも？安いし。んー、でもPROのみにするか？少々悩みますね、笑

※調べて行くとアクションパックを買った人は20％offでvs（msdn）のライセンス買えます！と言う文言を見つけるかもですが、あれは毎年数十万払って、プラス実際にMS製品の売上を上げている上級パートナーのみ。登録のみのパートナー向けではない（世の中そんなに甘くないです）

※サブスクライバからDL可能なソフトの比較は下記を用いて行っています。

MSDN Products_by_Benefit_Level.xlsx
ファイルはエクセルで、MSの難解なページから当該リンクを探しています。
http://download.microsoft.com/download/1/5/4/15454442-CF17-47B9-A65D-DF84EF88511B/Products_by_Benefit_Level.xlsx
最近のMSはすぐURL変わるので何時までリンク有効か、不明です。
リンクが切れていたら、下記ワードでググってみると見つかると思いますよ。

「サブスクリプションレベルごとに利用可能な製品の一覧をダウンロードしてください」

エクセルを開き、VS Subscriptionsと言うタブと、MPNタブ（マイクロソフトパートナーネットワークの略かな？）で比較できます。

参考までに・・・

IE11のお気に入りの追加で、アクセス拒否、が出る件

2016-05-14T21:11:00.001+09:00

ちょっと簡単な話ですが、
IE11にお気に入りを追加しようとフォルダ作成したら「アクセス拒否」ダイアログが表示される！

ググってみると・・

　IE8から出ているみたい。

原因は・・

　お気に入りを楽にメンテしようと、他ドライブ（過去PCのドライブ等だよね）他PCなどから、現PCユーザーのお気に入りフォルダへエクスプローラーを使い直接入れ込むと（COPYや移動で）おかしくなる事、あるみたいね。でも今まで普通そうしていたけど特に問題なかったけど。で、アクセス拒否。MSの裏、権限は複雑です。

対処法は・・

　net見てると皆さん色々と大変な作業をしているが、どれも怖い手法ばかり。私PCは開発ツール満載でとても試せない操作ばかりだったので当たり前な極簡単に、、正規の手順でインポートしてみると問題は解決。
※流れは、、IEのお気に入りから行います。エクスプローラーは使ってはダメ。また同じ目に遭います。

私の対処法は・・

　アクセス拒否される当該フォルダをエクスポート（ファイルにエクスポート＋お気に入りをチェック：エクスポート先はデスクトップなどへ）　→　当該フォルダを削除　→　エクスポートしたフォルダをインポート。
（何かあったら危険なので、最初にルートから全てのお気に入りをエクスポートしておくことをお勧めします：バックアップと言う意味ね！、お気に入りの削除が伴うため）

これで解決。要するにアクセス拒否になったダメフォルダは削除するしかない、と言うことです。

もしルート（全体）がダメな場合は、エクスポート時に一番上を選択してエクスポートし、お気に入りの全てを削除し（エクスプローラーで行うのでなく、IEのお気に入りからの方が安全）、エクスポートしたファイルをインポート時に指定する。多分上手くいくと思います（私は全エクスポート／インポートは試してませんが）。

（上記は、自己責任で行ってね！）

上記操作は・・

画面右上☆のお気に入りに追加にある▼をクリックすると、インポート・エクスポートが出てくるので、それを使い操作します

おわり・・

EXCEL2013でSQL、EXCELシート同士をクエリする（最終回）まとめ＋VBAコード

2015-08-12T20:09:00.004+09:00

EXCEL＋VBA＋SQL（ADO）　外部DBなど使わず、全てをエクセル内で完結させる

2回に渡り記事をUPしたが、まだ完全に纏められるほど頭が固まっていないが、最終回。
現時点での纏めです。※コードは後半

（免責）
・下記はコード作成中に発見したモノで、コードを作った後で改めて検証は行っていないため、不正確な解説が行われている可能性あるが、不正確な点あればスルーの事。
・MSにより随時更新されているEXCELのパッチにて問題が解決する場合もあるが、新たな別の問題が発生する場合もある（現在日：2015/8）。
※MSのOffice系パッチはとてもいい加減で、ある日突然マクロ（VBA）がエラーで動かなくなる（仕様が真逆に変更になっていた）等、過去にMSにしてやられたこと数回＝私的には業務PGMでexcelなど決して使いたくない

「　EXCEL エクセル＋VBAのコツ　」

「エクセルの要素（cells、sheetなど）は、本処理では、絶対に！決して！直参照しない」
　※処理件数が少なければシート直接参照OK!! 問題ない。

理由：処理が数百～数万倍遅くなる
　　　　2015年8月現在はBOOKバグも発生するのでSQL使用時は必須と考えた方が良い

・最初に、シートにあるデータは、VBAで配列（若しくは変数）を作りシートを丸ごと入れ、
　その配列や変数のみを使って処理を行う
　（シートを参照しない＝処理速度が異様に高速になる）
・最後に配列や変数の値を、結果表示するEXCELシートへ貼り付ける

・・処理流れ・・
「前処理」　VBAからI/Oするシートやセルのデータは配列や変数を作って入れる
「本処理」　絶対に！！！sheet、cell、等エクセルシート内の要素を直参照・直設定しない。
　　　　　　　　配列や変数のみを使い処理ロジックを書く。
「後処理」　処理結果をEXCELシートへ一括貼付する（range）

これらは一般的に、VBA高速化テクニック、として公開されているが、私的には必須と思っている。
出来ないならコード書くな！と言いたい。

参考ページ　→　とても分かりやすい解説

「　EXCEL エクセル＋VBA+ADO＋SQL （シート同士をjoinしたクエリ）のコツ　」

「シート上で数字に見える列は、事前に全て　'　を付けEXCELに文字列と宣言する」

　　　「教訓」
　　　VBAでは問題ないが、SQL（ADO）では問題になる事がある（永遠にマッチしない事態に陥る可能性ある）

　　　多分今回発生した一連の問題のキモはこれでした。

　　　ADOに渡ったデータの値が変わってしまうなど思いもしなかったですから。

－－－－－－－－－－－－
　まず解説）
－－－－－－－－－－－－
　EXCELセルの中身　A1：1234　A2：0123　A3：'0123
　EXCELでの見た目　A1：1234　A2：0123　A3：0123

　A2はセルの書式設定で「文字列」と指定してある

－－－－－－
　VBAにて
－－－－－－
Sub main()
Dim wsMain As Worksheet
Set wsMain = Worksheets("Sheet1")

MsgBox (wsMain.Range("A1").Value)
MsgBox (wsMain.Range("A2").Value)
MsgBox (wsMain.Range("A3").Value)
End Sub

　実行すると・・・次のよう表示される
　　1234
　　0123
　　0123
　VBA上ではEXCELの数値の仕様とセルの書式設定が効いている。
　だから2番目と3番目が「0123」と表示される

－－－－－－
　しかしADOでは！！
－－－－－－
　EXCELの数値仕様　：　適用
　セルの書式設定　：　無視

　データは其々次のよう読み込まれていた

　　1234
　　123
　　'0123

　VBAで表現されるデータがそのままADOに渡ると思っていたため、永遠にjoinしない状況が発生！
　※実際にADOに渡されたデータを見ることは不可能。（今回使ったドライバーではこうなった）

－－－－－－
　回避策は・・
－－－－－－
　EXCELの数値列の全セルの頭に、予め ' を付加し、ADOでは「'0123」と言うデータでSQLした。

　今回のSQLに使ったドライバ
　　Microsoft ActiveX Data Objects 6.1 Library
　　Provider：Microsoft.ACE.OLEDB.12.0
　他のドライバ、またバージョンによって動きが異なること、大いにあり得る

＜　コツ（まとめ）　＞

・ADO（VBAのADO）では、エクセルで設定したセルの書式設定は無視される
　　上記より

・数字に関してエクセルには数々の仕様が存在し、事前に仕様が適用されたのち、クエリ（ADO）へ渡される
　　仕様回避は不可能　上記と記事（2）を参照

・ADOを使用するなら数字列はEXCEL上で事前に　'　を付加しておく
　　処理結果をシートへ結果を貼り付ける時も、EXCELの数値仕様が適用され問題となることがあるので　'　を付けると全て上手く行く

・SQLのjoinキーは、エクセルでの全ての数字の制約（仕様）を考慮しないと永遠にマッチしない事態に陥る
　今回大問題になった事件（記事（2）を参照）

・対策としてEXCEL数値列に　’　を付加するには
　１．別シートを用意し当該シートのセルを其々参照させ、その別シートをVBAに渡しクエリで使用する（簡単）
　２．CVSなどをラッパーとし利用I/Oし、書きor読込時に　'　を付加し、新シートへ書き込むVBAを作る（面倒）

　上記数字列全てに　'　を付けてしまう手法は、joinキーに数字を用いない場合もエクセルの各種数字に対する制約がキツイので、なら数字列は予め全て ' 付けてしまえ！！的な手法。　但し美しくないので、机上のプロやＩＴ記者（私はマスタべーションのプロと呼んでいる）は嫌がると思うが、なら現場入ってみろ！と私ならそう言います。

　批判されること、あるかも知れない現場的な手法ですが、開発もメンテも楽になりますよ！

今回作ったコードの一部を記します。ご参考まで。

※これがウォータープルーフ開発で用いられていた上から下へ流れるコード一例、でもある
　（オブジェクト指向でない＝今どきこんなコードを書いたら張り倒されるかクビになるかも？）
※VBAは、VBA＜VB6　要するにVBAは20年前の代物＝学習教材としては最悪です
　java(JavaScriptではない)、PHP、C#を勉強しましょう
※解説はしませんので質問もしないでください、少々雑でいい加減な個所もありますが動きます
※不明なパラメータなど、ググれば腐るほど解説ページが出てきますので、そちらを参照のこと
※エラー処理は外しているので、On Error GoTo、して下さい

※下記コードの著作権は私にあるので好き使っていただいて結構です　（但し、使えるものなら！）

'-----------------------------------------
'　サンプルコード　START
'　
'　Windows10（64bit）、Excel2013（64bit）、拡張子～.xlsm、にて稼働中
'-----------------------------------------
Sub CollectAccountDue()

    '出力する未収金反映済の請求シート名
    Dim OutSheetName As String
    OutSheetName = "当月請求"

    'SQL文
    Dim SQLSheet As String
    Dim SQLCell As String
    SQLSheet = "tempSQL"
    SQLCell = "A2"

    'ワークシート
    Dim wsMain As Worksheet
    Dim wsSql As Worksheet
    Dim wsOut As Worksheet
    Set wsMain = Worksheets("メイン")       'メイン画面
    Set wsSql = Worksheets(SQLSheet)        '当該セルよりSQL読込
    Set wsOut = Worksheets(OutSheetName)    '出力先シート名

    'ツール → 参照設定 → Microsoft ActiveX Data Objects 6.1 Library
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String

    '出力STARTセル情報
    Dim oColumn As Long     '出力カラム
    Dim oRow As Long       '出力行
    oColumn = 1
    oRow = 1

    Application.ScreenUpdating = False

    '出力先シートをクリア
    wsOut.Cells.Clear

    'ADO
    Set cn = New ADODB.Connection
    cn.Provider = "MSDASQL"
    cn.ConnectionString = _
        "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
        & ThisWorkbook.FullName _
        & ";Extended Properties=""Excel 12.0 Xml;IMEX=1;HDR=YES;"""

    sql = wsSql.Range(SQLCell).Value     '当該セルよりSQL文を読込
    cn.Open

    Set rs = New ADODB.Recordset
    rs.Open sql, cn, adOpenStatic

    If rs.Fields.Count < 1 Then
        MsgBox ("エラー発生！！該当者がマスター上に存在しません。処理を終了します")
        Exit Sub
    End If

    '（未使用）新シート作成（現在のシートの最後に追加）
    '（未使用）Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Range(NewSheetNameCell).Value

    '---------------------------------------
    '--- Query Data -> New Sheet ---
    '---------------------------------------
    Dim rsFieldsCount As Long
    rsFieldsCount = rs.Fields.Count

    '出力
    Dim rowArray(1 To 3000, 1 To 100)
    Dim colCount As Long
    Dim rowCount As Long
    colCount = 0
    rowCount = 1

    '未収金、請求額算出
    Dim Claim As Long
    Dim Claim1 As Long
    Dim Claim2 As Long
    Dim Claim3 As Long

    '========================
    Dim dblStart As Double
    Dim dblEnd As Double
    Dim dbltime As Double
    dblStart = Timer
    Debug.Print dblStart
    '========================

    'クエリ結果を配列へ挿入
    '　EXCELバグが発生しなければ配列へ挿入する倍の時間で直接シートへ挿入可能
    '　だがEXCELのBook内バグが発生しだすと300倍の時間が掛かり回避不可能
    '　従って回避策として配列へ挿入する

    colCount = rsFieldsCount + 3    '未払金、小計、請求額を付加
    Do Until rs.EOF

        'ヘッダー行セット（1行目）
        If rowCount = 1 Then
            For i = 1 To rsFieldsCount
                rowArray(1, i) = rs(i - 1).Name
            Next
            rowArray(1, 45) = "未払額"
            rowArray(1, 46) = "小計"
            rowArray(1, 47) = "請求額"
            rowCount = rowCount + 1
        End If

        'データ行セット（2行目以降）
        If rs(2).Value <> "'" Then
            'col
            For i = 1 To rsFieldsCount
                If IsNull(rs(i - 1).Value) = False Then
                    rowArray(rowCount, i) = rs(i - 1).Value
                Else
                    rowArray(rowCount, i) = ""
                End If
            Next

            '========================================
            ' 未払い金、小計、請求額を付加
            '========================================
            '請求金額(32)
            If (rowArray(rowCount, 32) = "") Then
                Claim1 = 0
            Else
                Claim1 = rowArray(rowCount, 32)
            End If
            '当月合計(20)
            If (rowArray(rowCount, 20) = "") Then
                Claim2 = 0
            Else
                Claim2 = rowArray(rowCount, 20)
            End If
            '現金入金(21)
            If (rowArray(rowCount, 21) = "") Then
                Claim3 = 0
            Else
                Claim3 = rowArray(rowCount, 21)
            End If

            '** 未払額 ** ** 小計 **
            If (rowArray(rowCount, 37) = 0) Then
                rowArray(rowCount, 45) = Claim1
                Claim = Claim1 + Claim2 + Claim3
            Else
                rowArray(rowCount, 45) = 0
                Claim = Claim2 + Claim3
            End If
            rowArray(rowCount, 46) = Claim

            '** 請求額算出 **
            If (Claim ＜= 0) Then
                rowArray(rowCount, 47) = 0
            Else
                rowArray(rowCount, 47) = Claim
            End If

            '行カウント
            rowCount = rowCount + 1
        Else
            Exit Do
        End If
        rs.MoveNext
    Loop

    Dim rowCnt
    rowCnt = UBound(rowArray, 1) '1368

    '======================
    '出力先シート ← 配列
    '======================
    '1Startを0Startにする（正常に戻す）
    rowCount = rowCount - 1
    '-1を行った後のrowCountは、1行目のヘッダーを含めた件数なので注意！！！

    wsOut.Select    'アクティブにしておかないと「rangeオブジェクトは失敗しました 1004 」が発生する
    wsOut.Range(Cells(1, 1), Cells(rowCount, colCount)) = rowArray ’配列→シート：オーバーフローしているが問題ない（切り捨てられる）

    '========================
    dblEnd = Timer
    Debug.Print dblEnd
    dbltime = dblEnd - dblStart
    Debug.Print "処理時間は" & Format$(Int(dbltime)) ＆ "秒でした"
    Debug.Print "処理時間は" & Format$(Int(dbltime * 10 ^ 4 + 0.5) / 10 ^ 4) ＆ "秒でした"
    '========================

    rs.Close
    cn.Close

    '============================
    '口振シート作成（CSV化の元データ）
    '============================
    Dim rowBankArray()
    ReDim rowBankArray(1 To rowCount - 1, 1 To colCount)    '1行目はヘッダー行なので不要、-1する）
    Call CreateBankTransferData(rowArray(), rowBankArray())

    '================================
    'コンビニシート作成（CSV化の元データ）
    '================================
    Dim rowCvsArray()
    ReDim rowCvsArray(1 To rowCount - 1, 1 To 80)    '1行目はヘッダー行なので不要、-1する）
    Call CreateCVSTransferData(rowArray(), rowCvsArray())

    Application.ScreenUpdating = True

    'メインシートをアクティブにする
    wsMain.Select

    Dim ret
    ret = MsgBox("処理は正常に終了しました", vbOKOnly, "当月請求データ作成")

End Sub
'-----------------------------------------
'　サンプルコード　END
'-----------------------------------------

※↑ブログUP時、特殊文字が自動変換されてしまうので大文字にしている箇所があります
※仕様としては、顧客マスタと未払金CSVをSQLでマッチングさせ、通常請求額＋未払い額を算出し、当月請求額としてFIXさせている。

一応クエリも貼っておきます

select * from [請求データ$] a left outer join [CSV1$] b ON mid(a.顧客ID,2,5) = mid(b.請求番号,12,5)

・SQLはこんな感じにセルに記入
・VBAでシート「SQL」の「A2」を読み込み、SQL文として使用する

※データは機密のため見せられませんが、EXCELで管理している「顧客情報」と「請求情報」なので大したことありませんから特に記述しません。

参考までに　第1回記事　で解説した、手作業で行っていたEXCELを使った請求業務。
上記EXCEL＋SQLを使うことで、パートさんが行っていた毎月7人日必要としていた請求処理は、わずか8秒で完了できるようになった。
開発費用はたった半年で回収でき、あとはボロ儲け？めでたしめでたし。

（まとめ　余談　オチ）

3回に渡り、EXCELのシート同士を其々テーブルと見立て、とあるシートのセルに書いたSQL文をVBAで読み取り、ADOを使いそのSQLを実行、結果を新しいシートへ貼り付ける。と言うVBAコードと解説？意見？日記？を長々書いてきましたが、最後に余談とオチ。

私はEXCELには詳しくない普通の職業プログラマーだったため、基本EXCEL関数は使いません。と言うより信用していない、私には必要ない、と言った方が正しい。
やはり速度が非常に遅い点、応用が利かない点、MSが予告なく仕様を勝手に変更する点、EXCELやVBA特有の関数を覚えたところでEXCEL以外では使えない点＝それでは金にならない＝食っていけない、からですね。（VB6やっていたので対した苦も無くVBAでコード書けますが・・）

職業プログラマーはプログラミングや設計で生計を立てるので、いかに将来性があり（市場シェア）効率よく金になるモノに注力し取り組めるか（学習勉強）、これが注力対象を選択する一番のポイント。しかも腐るほど金を持っている巨大企業が好む言語等を選択するしかない。中小企業（金がない＝単金も安く金払いも悪い）が好む事が多いEXCEL VBAの市場シェアは低く（無に等しい）覚えたところで永年に渡り食っていけません（寝る間を惜しんで死ぬほど学習しているなら別！）。それならjava、.net、c#、各種web系言語、開発、運用ノウハウ、コンサル等に注力した方がよっぽど良い。と言うよりそれ以外の選択肢はない。数十年に渡り家族食わしていかないとでしょ？これがEXCEL・VBAが私に必要ない理由であり覚えない理由。ノウハウは今回の記事だけで十分、もうイラナイ。

そして最後にオチ

今回の、シートAとBをマッチングし、結合結果をシートCへ書く、と言う処理は、EXCEL VBA関数である「Find」を使い応用すれば出来ます。
「VBA シート同士の結合」とググれば例は山ほど出てきます。コード量も大変少なく、、さて、あなたならどちらの手段を選択しますか？
SQLを使い処理件数が増えても速度も速く汎用性を持たせるが面倒なロジック、FINDを使い短いコードで処理をこなす。
FINDを使った処理群、速度に関してはどうなのでしょう？試してないのでわかりませんのでご自身でお試しください。

私はFINDもですがエクセル提供の関数など信用しないので基本EXCELは使いませんが（EXCEL関数群があそこまで処理が強烈に遅くハングする等のバグも多いとはイマドキ夢にも思いませんでした）、数百件程度の少量データならFINDを使う事を大いに検討するかな？と考えます。

おわり

パート１はこちら　→　EXCEL2013でSQL、EXCELシート同士をクエリする（第１回）
パート２はこちら　→　EXCEL2013でSQL、EXCELシート同士をクエリする（第２回）

EXCEL2013でSQL、EXCELシート同士をクエリする（第２回）

2015-08-05T02:29:00.003+09:00

先回のパート１、EXCEL2013でSQL、EXCELシート同士をクエリする（第１回）、に続き、
今回はEXCELの仕様（制約）、自動処理、EXCELのBOOKバグ、などEXCEL＋SQL時の問題点を具体的に記す。

環境としてはWindows10（64bit）とWindows7（64bit）、EXCEL2013（64bit）。
Windows10だから発生した、と言う問題は皆無。win7、win10、共に事象は同じ。

※実際のVBAコードは最終回に記しています

「教訓」
VBAでは問題ないが、SQL（ADO）では問題になる事がある

「　処理　」
　１．シートAの列A left outer join シートBの列A
　２．結果をシートCに貼り付ける

「　クエリするシート　」
　・シートA　行2000、列13
　・シートB　行230、列6

「　JOINキー　」
　・シートAの顧客No（数字5桁）
　・シートBの請求番号（数字17桁）の中にある顧客No（数字5桁）

上記非常に単純なleft joinクエリ

一般的なDB（sqlserver、ｵﾗｸﾙ）を使いt-sqlを使えば（オラクルはPL/SQL）上記sql作成に15秒・実行に1秒、どんな書き方をしようとこんな単純なクエリはsql作成～実行完了まで16秒で終わるが、EXCEL＋VBA＋ADO（SQL）では多くの問題が発生したためsql作成～実行完了までに、なんと約1万倍以上の時間を要した（約5日）

＜　ポイント　＞

・最初に断っておきますが、joinキーに数字が入った列を使ったため問題山積みになりました。
・excelに文字列と認識される文字列が入った列を使えば問題は発生しません。
・よって、excelのSQLではjoinキーに数値列を使うと問題が起こる！と記憶しておくと良いかと思います。

対処法は下記以降を参照下さい。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
　　参考までに　（初心者編）　START
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
EXCEL VBAでのクエリ（SQL）の書き方は普通のクエリと少し異なり、こんな感じ（ADO）

select * from [請求データ$] a left outer join [CSV1$] b ON mid(a.顧客ID,2,5) = mid(b.請求番号,12,5)

構文は普通のSQLとほぼ同じ。ただ特徴的な事項がある

１．シートを指定する場合　[シート名$ ]　と書く
　　上記、請求データ、と、CSV1、はシート名

２．関数は結構違う
　　一例は、VBAにはsubstringがないのでmidを使ったりと、関数の違いはある

３．シート＝テーブルと考える
　　シートAとシートBをjoinする＝テーブルAとテーブルBをjoinする、そう読み替える

４．シートの1行目は項目名として認識されSQLが実行される
　　これは大変便利でとても面白い機能

　今回、同一BOOK内の、シートAとシートBをSQLでJOINするが、シート1行目は見出し行でデータ行は2行目から。　通常DBでは1レコード目からJOINが開始されるが、ADOで使用するEXCELドライバーは1行目をJOINせず見出し行として無条件に出力してくれ、実際のJOINは2行目以降のデータ同士で行ってくれる。　これは便利でとても面白く結構感動ですね。

ざっと目だった点を言えば上記な感じ。

あっと、、もっと基本的な話が1点

・EXCELマクロはマルウェアやウィルスの温床として世間からは悪として扱われている。MSも悪として扱っている。
　そのため「マクロを有効にする！」そうわざわざEXCELの設定画面で指定しないとマクロ（VBA）は動かない。

　しかし便利な拡張子xlsmと言う「マクロが書かれたエクセルですよ！」と予め宣言している拡張子がある。
　もちろん、今回のようマクロ（VBA）を使う場合は拡張子をxlsmとして保管は必須。
　Windows10ではエクセルを開いたときに上部にマクロを有効にするか？ボタンをクリックするだけでマクロが動く。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
　　参考までに　（初心者編）　END
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

＜　本題　＞

結論を先に言えば・・

シートのデータをVBAに渡して処理だのクエリ（SQL）だのやらせ、結果をシートへ書き込む、と言うEXCEL＋VBAでの処理。このとき全てのセルの頭に強制的に　'　を付加し、文字列としてEXCELに認識＋処理させれば、シートから読み込むときも、シートへ書き込むときも、問題は何も発生しない。

ただ使う側の人間に、例えば新データ1行追加する度、全てのセルの頭に　'　を付けて！とは言えない（ミスも増える＝人間のオペレーションを信用してはいけない）従ってその辺は別シートから参照を使ったり、VBAで対処させることが必要。

（免責）
以下、検証漏れ、解説ミスが発生している可能性もあるので、最終的にはご自身で検証下さい

また今回の問題は、joinキーとなる列が全桁数字表記されているため、excelの数字に対する仕様、が働いてしまい問題になった。要するにexcelが最初からこの列は文字列だ！と、そう判断してくれる列同士のjoinであれば、何ら問題ない。

例えば0100はexcelに数字と認識されてしまうが、A000は文字列なのでjoinキーに使っても何ら問題は発生しない。要するに変わったことをすると問題が多発する、と言う典型的例でもある。そのための長い解説と次回のコードがある。
ただEXCELとADOで使うEXCELドライバーの、数字に対する様々な仕様が見れるので、それはそれで面白いかも？

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
　EXCEL＋VBA＋ADO（SQL）　４つの問題点　START
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

１．データをADOへ渡すとき、EXCEL書式設定の文字列指定は無視され、結果数字として扱われる
　　→　そのためADOがSQLを実行する時点では頭の0が消去されており、結果JOINキーがマッチしなくなる
　　→　対策）顧客No（数字5桁）の頭に　'　を予め付加しEXCELに文字列と認識させる
　　　　※ユーザーに入力の度に　'　を付加しろとは言えない
　　　　※そのため開発側で別シートを用意し　'　を付加し、このシートをクエリ対象とする必要ある
　　　　※若しくはSQLを実行するVBAでSQLを実行する前に全行のjoin対象セルに　'　を付加（この対処は不可能）

２．EXCELの制約（仕様）のため、デフォルトでは数字17桁を表示できない
　　ex. 99999001070000103
　　エクセルでの表示： 2.3716E+16
　　→　これは表示上の問題でVBAで扱う場合問題ではないが、クエリ結果をシートへ書き込む場合に問題となる

　「対策」
　　・頭に　'　を付加し文字列とすれば問題ない
　　・VBAからシートへ書き込む場合に注意する程度

３．EXCELでは15桁以上の数値は扱えない（EXCELの15桁問題）
　　99999001070000103
　　上記のよう入力すると、以下のよう15桁以降は0に置換されてしまう
　　99999001070000100

　　これは知る人ぞ知る、IEEE754、問題。
　　これがよく言われるEXCELで計算結果が正しくない＝誤差が生じる問題として話題に上がる。
　　またクレジットカード番号（16桁）を扱う場合も問題になる。

　　詳しくはwikiを参照いただきたいが、EXCELはIEEE浮動小数点数演算標準（IEEE754）を仕様として取り込んでいる。
　　よって15桁以上の数値は扱えない（仕様のため回避は不可能）

　「対策」
　　・今回の場合は文字列とするため　'　付加すれば問題なし
　　・よってVBAからシートへ書き込む場合に注意する程度

４．CSVをEXCELシートへ取り込む際も、数値と文字列問題が発生する
　　EXCELの機能にあるインポートをマクロ記録すると以下のコードが生成される

    Sheets(xxx).Select   '出力先シートxxxをアクティブにする
    ActiveSheet.Cells.Clear          '出力先シート内をクリア

    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & CsvLocation, Destination:=Range("$A$1"))
        .Name = "bank"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 932
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

下から4行目、CSVの3番目の要素を文字列としてインポートしている。これはセルの書式設定で文字列と指定した事と同じ。
これは前述したシートBの請求番号（数字17桁）であり、シートには問題なく17桁全桁表示される
※エクセル上では表示書式＝文字列が有効になるため

しかしこのシートのデータをSQLで使うため、かつ、この3番目の要素をjoinキーとしてすると、前述の２，３、の問題が発生する。

「対策」
　・CSVをEXCELシートへインポートする際、自作コードを作り必要な列へ　'　を付加する
　・別シートを作り各セルを参照させ、当該列の参照に　"'"＆　をつけEXCELに文字列であると宣言する

EXCELとVBA上のADOを考えるとき、渡されるデータは通常のDBなどにはないEXCEL独自の仕様を踏まえ、どうデータが渡されるか、若しくはデータがシート上でどう表現されるか、EXCELの仕様（制約）を考慮配慮する必要ある。
※ADOが受け取った生データを見ることはできないので、理詰め＋勘で対処する

だが上記問題は、見た目数値だが文字列として扱えば問題は発生しない。
しかしそのためには物理的に頭に　'　を付加し、EXCELに文字列として認識させねばならない。
VBA＋ADOではセルの書式設定は無視される、と考えておけば良い。

但し別の考慮点も

今回使用したドライバではそのような動きをしたが、他のドライバでは別の動きをする可能性もある（2015年現在では｛driver｝は使えないので問題ないと思うが？）。するとドライバに応じた対策が必要になるケースも考慮する必要あり。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
　EXCEL＋VBA＋ADO（SQL）　４つの問題点　END
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

制約（EXCELの仕様）はまだあるので引き続き記す。

５．jetエンジンは64bit環境サポートしていない
　　Windows10が発売されている2015年現在においても、VBAは20年前のVB6と何ら変わりない
　　VBA＝VB6のようなもの（VBAはVB6のサブセット）＝古すぎ終わっている言語。

　　結論　：　jetなど化石なので無視すればよいだけ。
　　余談だが、最新ライブラリのコネクションをウォッチするとjet表記を見て取れる。不気味だが詳細は不明のためスルーする。

Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\xxx\xxx.xlsm;Mode=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engi"

　Windows10上でEXCEL2013を使用するような2015年の現在、コネクションのプロバイダーは、Microsoft.ACE.OLEDB.12.0、を使う。　参照設定は以下。

※Driver={Microsoft Excel Driver (*.xls)};は使えない＝忘れてしまえば良い
　32bitWindowsでは検証していないが、64bitWindowsでは使用できないため、もう使えない、そう考えておけばよい。

まだあるEXCELの仕様（制約）の例
以下は今回問題にならなかったが、EXCELにはこういった仕様もある

６．EXCELがデータ型を勝手に決定してしまうためnullが返される
　　これはEXCELドライバ（なんのドライバだ？）の仕様。
　　https://support.microsoft.com/ja-jp/kb/194124
　　~~http://www.f3.dion.ne.jp/~element/msaccess/AcTipsExcelLinkDataType.html~~
　　リンク先の情報はかなり古いが、20年前のVB6のサブセットであるVBAの場合、決して古い情報とは言えない。
　　リンク先のデータアクセスはDAOだが、もしや後発のADOも仕様を引き継いでいるのでは？！と一応情報を載せた。

＝＝＝＝＝＝＝
　その他の問題　複雑なプログラムであるエクセルに重いバグが入っていました
＝＝＝＝＝＝＝

エクセルBOOKのバグに遭遇。一旦バグスイッチが入るとそのブックは破棄するしかない。

下記例はごく単純なコード。
俗に言うEXCEL VBA初心者のコードで、直接セルを参照・設定し処理している＝極悪コード＝業務で使ってはいけないコード。

だが、2千件（13列）と300件（6列）のouter joinクエリ＋画面貼り付けを20秒で完了出来る。

　　　　・
　　　　・
'ADO
Set cn = New ADODB.Connection
cn.Provider = "MSDASQL"
cn.ConnectionString = _
    "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
    & ThisWorkbook.FullName _
    & ";Extended Properties=""Excel 12.0 Xml;IMEX=1;HDR=YES;"""
sql = wsSql.Range(SQLCell).Value     '当該セルよりSQL文を読込

cn.Open
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenStatic    'open&sqlが実行される

'新シート作成（現在のシートの最後に追加）
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Range(NewSheetNameCell).Value

'見出し行
For i = 0 To rs.Fields.Count - 1
     Cells(oRow, i + 1).Value = rs(i).Name    '・・本処理中にexcelのセルを直参照している（極悪コード）
Next

データ行
j = oRow + 1
Do Until rs.EOF
     For i = 0 To rs.Fields.Count - 1
         Cells(j, i + 1).Value = rs(i).Value    '・・本処理中にexcelのセルを直参照している（極悪コード）
     Next
     j = j + 1
     rs.MoveNext
Loop
　　　　・
　　　　・

結果行2000、結果列19列の、left outer join 。このクエリ実行とシート貼り付け時間は約20秒弱。
しかしEXCELにてシート編集やセル編集VBA編集→実行を行っていると、ある時点でバグスイッチが入り、20秒で完了した当処理が300倍程の時間がかかるようになった。（要するに終わらなない）

こうなるとBOOKは壊れた。そう考え新しい真っ新のEXCELを作成し、シート、VBAを貼り付け、作り直すとまた20秒で処理が終わる。しかしまたバグスイッチが入るともう駄目。そのBOOKは破棄するしかない。
このBOOKバク回避に、とにかく考えられるあらゆる事を行ったが（シートを最小限まで減らすに始まり・・・）このバグは回避できなかった。

そこからが至難の連続が始まる。

VBAでは使用するEXCELシート全要素を、全て配列か変数に代入し、それらのみで本処理を書き、最後に配列toシート（range）、と言うプログラミングを行わないと駄目、そう考えそう実施する必要がある。
新しいofficeパッチで問題が出る可能性もあるので、売り物にする場合はそのよう作るしかない。

これは　次回記事　で　コツ　として記します。

（　まとめ　）

こうやってEXCELの各種仕様（制約）を書き出すと大したことではなく、回避も容易。しかし全く知らない状態から数々の問題を解決しながら理詰めと勘を駆使し進むことは、これは非常に大きな問題であり発見に時間がかかり、参った・・という感想しかない。

次回パート３は最終回、なるべく纏めた情報を記したい。実際のVBAコードもUPする予定。

パート１はこちら　→　EXCEL2013でSQL、EXCELシート同士をクエリする（第１回）
パート３はこちら　→　EXCEL2013でSQL、EXCELシート同士をクエリする（最終回）

EXCEL2013でSQL、EXCELシート同士をクエリする（第１回）

2015-08-04T21:12:00.001+09:00

EXCEL2013での話

＜　お題　＞

口振の引落結果／コンビニ振替の支払結果／口振依頼データ作成／CVS振込票データ作成／全顧客の情報管理

これ等を全てをエクセルのブックだけで管理しているが、毎月2度発生する請求処理が大変。これは顧客一覧と未払者（銀行WebよりDLしたCSV）を突合し、未払額を上乗せした当月請求額を算出しなければならない。
処理としては該当する顧客を探し足し算で終わりなので、全てEXCELと手作業だけで行っている。
しかし・・、顧客は数千人、しかも毎月増え続けているので手作業での突合がとても大変。随時顧客のメンテナンスもある。よって最重要以外の処理を手順書を作ってパートさんに説明するが覚えさせるのに一苦労。そしてミス多発。

よくある話です。

私たちからすると、そんな情報や処理をエクセル＋手で管理しようとするから大変になる＝当たり前の結果、な訳でDBとC#があれば一瞬で解決でしょ！！

と考えるのが普通。
が、色々と制約があり社内の規定によりPCへのプログラムインストールは一切禁止。ACCESSさえ導入不可。
要するに何もインストールせずエクセルとSQL（VBA）のみを使い問題を一瞬で解決させる、そんな夢？のような話。

が、sqliteやMSのcompact DB（VSのサポートがVS2013以降なくなったが）ならインストール不要。
C#もXCOPY配置でOK？？必須.NETフレームワークはMS製なのでWindowsUpdateで取込まれるから問題なし。

結論から言えば、インストール不要DB＋インストール不要C# EXEを使えば問題なく対処できる可能性は高い。

しかし・・・そんな人気のない仕組みを使う＝不具合で嵌ると抜け出せなくなる可能性大。ただEXCEL（VBA＋ADO）も情報は非常に少ないが、どうせ嵌るならexcelの方が面白そうなので、excelで解決する手段を選択。その方がお客にも説明し易いからね。

という事で！エクセルだけを使い、他のDBなど一切使わず、エクセルシート同士をSQLでクエリし、業務を行う、ですね。

Googleで「EXCEL SQL 」とググると簡単に出来るらしい。
方法はエクセルの裏にあるVBAでADOを使うとエクセルのシートをテーブルとして扱え、すると普通にSQLが書けるので実行させ、結果をとあるシートへ貼りつけるだけ。なんだかとても簡単そう。

と思ってやってみたら、これがとんでもない！！！
joinキーがちょうどEXCELの数字制約に引っかかるケースだったため、他にもエクセルの制約に引っかかる箇所多発！最終形に落ち着くまでが非常に大変！！
結局調べ＋試行錯誤で丸々1週間。SQLServer使ってSQL＋C#を書けば一瞬で終わるのに、何故こんな苦労を・・・？。結果もうヘトヘト。

それとnet上に多々あるエクセル＋SQL解説はとても素晴らしいHPもあるが、どうも教科書的な解説で美し過ぎる！必要なのは裏のキタナイ部分であり、発生する問題解決事例なのだか、、それ等は皆無。従って残念ながらほぼ参考にならなかった。もっとも今回EXCEL＋VBA＋SQL（ADO）で苦労したが、C#＋DBを使えば一瞬で解決するので、やはり一般的でない事はするものではない、ようです。実はEXCEL VBA関数を応用しても出来ますが・・第3回に記す。

普段の開発？とは異なる点

・とにかくエクセルには数々の制約があり過ぎる
　内部で勝手に行われる数字の自動処理が非常にやっかい
・エクセルシートは自動処理され過ぎるため普通にjoinさせるだけのSQLでも苦労する
　ドライバからADOに渡される生データを見ることはできないので、ホボ勘で勝負するしかない
・ADOが古すぎる
　OSはWindows10だが20年前VB6時代に使っていたado、古過ぎ

・VBAは、、、久々のVB6＞VBAだが素晴らしい！！
　VB6がなければ現代のプログラマ人口は1/1000？
　感動的な適当さでプログラムが組め、物凄く素晴らしい事を再確認！！
　VB6はソフトウェア業界最大の発明では！？

前置？が長くなったので続きは次回。　具体的な問題点などUPします。

パート２はこちら　→　EXCEL2013でSQL、EXCELシート同士をクエリする（第２回）
パート３はこちら　→　EXCEL2013でSQL、EXCELシート同士をクエリする（最終回）

＝＝＝＝＝＝＝＝＝＝＝＝
　　VBAについて
＝＝＝＝＝＝＝＝＝＝＝＝

上記ではVBAを褒めましたが、それはVB6を褒めただけ。そのVBAはVB6のサブセットのようなモノ。VB6は20年前に流行った言語（VBAは未だ生き続けているが）。よって2015年現在VBAは学習教材としては 「　最悪！　で　極悪！　」

素人が遊びでやるならOK？ですが、VBAを使ってソフトの学習をしようなどと決して！考えない方が良いです。こんなに楽でいい加減に組んでも動く言語は他になく、もしこれで覚えてしまうと他の言語で超苦労、、というよりプロと言われる人々の中にも無知人間が多数存在し、その無知が作った穴だらけのシステムのせいで（特にSQL！）情報漏えいしたと騒がれている時代。楽なVBA組んで喜んでいては一生Web系アプリなど、危険過ぎ組めません。やるならC#のコンソールアプリかWindowsフォームアプリでも組んで学習しましょう。

また初心者がいきなりWeb系アプリを作ることもお勧めしません（スマホ用アプリは別）。無知なときに作ると脆弱性多々でサーバー乗っ取られるか情報漏えいして会社クビになりますよ！まず普通に言語使えるようになり、十二分にセキュリティーの勉強を行ってからWeb系アプリ、組みましょう。Web系アプリは最新技術満載でどんどん新しく進化しているので面白いです。JavaScriptなども古いですが面白く怖く、ですね。スマホアプリ開発も新時代に入ってきましたし、スマホアプリなら脆弱性などさほど気にせず組めるので良いかも？知れません。

でもそろそろ・・ロボットの時代？かも知れませんね。労働人口減少？怖いですね・・。
＝＝＝＝＝＝＝＝＝＝＝＝

OneDriveとOneDrive for Business どちらが高セキュリティー？使い分けと違い

2015-06-25T22:44:00.000+09:00

以前から使っていた　OneDrive
最近office365を購入したので新たに　OneDrive for Business　が使えるようになった

私はどちらのサービスも同一メルアドを使っているため、
ログイン画面のログイン先が不明確だったのと、この2つのクラウドスペースをどう使い分ければよいか不明確だったが、使い分けができるようになったので、UP

同一のメルアドを使っていると下記の画面が出現する
しかしログインに関しての疑問は下記のページに全てが書かれている

OneDrive　：　「マイクロソフトアカウント：Microsoft Account」でログイン
OneDrive for Business　：　「職場または学校のアカウントにサインイン（MSの言葉だとこういう）

上記ページではなく、いきなり　「Microsoftアカウントか職場or学校のアカウントでログイン」　という選択を求められるページが出てくることが多く、最初戸惑ったが・・・

このページをスルーしていたので理解するまでに時間がかかったが、要するにそういうこと
ログインに関しては、、という事です。

使い分けに関しては、現時点で2段階認証をサポートしているのは、なんと！ OneDrive の方
よって高セキュリティーなクラウドドライブは、OneDrive、と認識

逆に OneDrive for Business は、パスワード認証しかないので危ないからクラウドへファイルUPしてません

何か逆では？ですが、OneDrive for Businessはazureと密につながっているので、社内ADのログイン情報を共有できる（詳しくは知らないけどね）
だからそう言うこと？？？

やってみていないのでよくわからないがそう言うことなのでしょう。

（使い分け、まとめ）

一般人がクラウドストレージとして使うなら、現時点では2段階認証をサポートしているOneDrive の方が断然安全

ただし、二段階認証にはスマホ＋アプリ必須

https://play.google.com/store/apps/details?id=com.microsoft.msa.authenticator

このアプリ出来がよく、許可をタップするだけで認証完了する
あまりに出来が良いので顧客のシステムに取り込みたい、真面目に思う

わざわざアプリ開かなくてもスマホのお知らせ画面？に出てくるから、認証できる
凄楽
やっぱ真面目にこのアプリというか認証システム、ウチのシステムに取り入れたい・・・
MSさん、無料で使わせて！！

おわり

Visual Studio 2010, 2013, 2015 RC と SAP Crystal Reports

2015-06-25T20:00:00.004+09:00

2017.8の最新記事あり　→　https://oyaji-pgm.blogspot.jp/2017/08/20178-visual-studio-2017-2015-2013-2012_13.html

SAP Crystal Reports ＝クリスタルレポート＝クリレポについて、
Windows 10 Build 10074 を開発用ノートへクリーンインストールしたので、再度クリレポ環境を作成すべく、下記。

これまでのSAP Crystal Reports記事は、ごたく？が多かったので今回はストレートに。

１．Visual Studio 2008, 2010, 2013, 2015 RC　で　SAP Crystal Reports クリレポ　を使いたいなら・・・

　A．下記メインページへ
　http://scn.sap.com/docs/DOC-7824

　B．現時点の最新版は、Support Pack 14 (v.13.0.14.1720)
　wiki（Fixed Issues）を見ると、Visual Studio 2010, 2013, 2015 RC、で使えるらしい。
　※各VSの最新SP（パッチ）は予め当てておくこと

　C．インストール
　開発環境（Visual Studio 2010, 2013, 2015 RC）で最新のクリスタルレポートを使うなら Install Executable の Support Pack 14 をDLしてインストール。※ランタイム必須＝別途DL → インストール

　必要ならマージモジュール、ランタイムをDLすればよい。（客先PCへインストールする等）

　D．ランタイムインストール
　インストールが完了すると、下記画面より64bit（私は64bitWindowsのため）ランタイムをインストールしろ！と出る。
　が！！！このまま先へ進むと、私の環境ではラインタイムインストールの最後でエラー発生。

この後、SAPから当該ランタイム単独でDLしインストールする方法を・・・
試そうと思ったら、別の理由でWindows 10 自体がクラッシュというより壊滅的に壊れたため試せなかった。

インストールまとめ）

１．SAP Crystal Reports, developer version for Microsoft Visual Studio の最新版（対象VSか確認）をDLインストール※VSは最新化しておく
２．インストールの最後の「続けてランタイムをインストールするか？」のチェックは外す
３．ランタイムは別途DLしインストールする（必須）

　

D．Windows10復旧後、実際にVisualStudio 2010 で、クリレポを作成＆実行
　問題なく作成実行できた（VS2010.SP1 .net framework4.0 C#）
　※他のバージョンVSでは試していない
　※VS2015RCを試しにインストールしたが、あまりに不安定すぎアンインストールした
　　お楽しみは後ほど・・、という事だね

※私のソリューションにはVSインストーラーのセットアッププロジェクトを作ってあるが、そこの必須コンポーネントとしてクリレポランタイムにチェックを入れている。
実際にセットアップを行うと・・・エラーが出た。

面倒＋必要ないので調べません。
一応内容。VSのセットアップがDLしたランタイムは、前述の最新ライタイムと同一モノだったが・・・

LOG）
(2015/06/25 19:44:39) Downloading 'Crystal Reports for .NET Framework 4.0\CRRuntime_32bit_13_0_14.msi' from 'http://downloads.businessobjects.com/akdlm/crnetruntime/clickonce/CRRuntime_32bit_13_0_14.msi' to 'C:\Users\xxxxxx\AppData\Local\Temp\VSD3AC7.tmp\'
Download completed at 2015/06/25 19:44:39
Verifying file integrity of C:\Users\xxxxxx\AppData\Local\Temp\VSD3AC7.tmp\Crystal Reports for .NET Framework 4.0\CRRuntime_32bit_13_0_14.msi
WinVerifyTrust returned 0
File trusted
Error: ファイル 'C:\Users\xxxxxx\AppData\Local\Temp\VSD3AC7.tmp\Crystal Reports for .NET Framework 4.0\CRRuntime_32bit_13_0_14.msi' は最初に発行されて以来変更されています。

・・・DL元のフォルダ名にclickonceとあるのが気になるが・・・ただの気のせいだろね？？

余談）

　過去のサービスパックはリンクが切られwikiしか参照できない。が、実はDLできる。
下記など、最後の / 以降の～.exe を変更すれば過去の各種モジュールがDLできるよう。
※HPの英語コメントにそれらしいことは書いてある

ex.13.0.4のサービスパックなら　CRforVS_13_0_4.exe　などと入れてみる
http://downloads.businessobjects.com/akdlm/cr4vs2010/CRforVS_13_0_4.exe

２．SAP Crystal Reports, version for Visual Studio

SAP Crystal Reports, version for Visual Studio フォーラムというかコミニティー

以上

おわり

同じ機能ばかりの、office365 Exchange、office365 SharePoint 、ローカルのoutlook、これをどう使い分けるか？

2015-06-13T18:23:00.000+09:00

この件はずっと不明だった。何故なら小企業はオンプレミスにMSのアプリサーバー（Exchange、SharePoint ）など使ってないから。だからoffice365を使い始めたけど、同じ機能ばかりある。これら一体どう使い分ければ良い？

全く不明でしたが、なんと！MS社員が書いた凄まじく素晴らしい資料を発見！
MSでこんな良い資料、初めて見た気がする。良く纏まっていて素晴らしいです！

こういう人材がいるって、やはり大企業は何もかも違いすぎますね・・・最初から勝負にならんし差が開くばかりな理由が見えますね・・・。

　　よく似た Office 365 の機能の使い分けの運用 - マイクロソフトの場合

機能	全社	拠点	チーム	個人
Exchange メール			○	◎
Exchange パブリックフォルダー	○	○	△
Exchange アドレス帳	◎
Exchange 予定表/施設予約	◎	○	○	◎
Exchange 連絡先				◎
SharePoint 個人用サイト	◎
OneDrive for Business				◎
SharePoint 予定表/施設予約	○	○	◎	△
SharePoint 連絡先	○	○	◎	△
SharePoint ポータル	◎	◎	◎	△
SharePoint ファイル共有	◎	◎	◎	○
Lync 連絡先				◎

資料よりデータをお借りしました。よってこの表は copylight microsoft corporation.

同様、資料をクラウドか、オンプレミスか、どちらに置くか。参考資料。

　　パブリッククラウドサービスを利用する際のセキュリティ対策として考えるべきこと

同じく

　　ビジネス情報の分類と保護 - マイクロソフト IT 事例

以下は、こちらも常によく分からんかった件（小企業の私には）

MS資料
　　連絡先とアドレス帳の基本を理解する

連絡先およびアドレス帳とは

Outlook では、連絡先を使用して、同僚や友人に関する情報を管理できます。連絡先には、名前、勤務先、電子メールアドレス、電話番号などのさまざまな情報が保存されます。

アドレス帳は、連絡先の電子メール情報用に主に使用されるツールです。アドレス帳を使用することで、連絡相手の電子メールアドレスを簡単に検索し、電子メールの受信者として選択できます。

おわり

Office 365で会社法人のホームページHPを公開できるのか？（パブリックWEBサイト）

2015-06-13T18:08:00.001+09:00

コロコロ変わっている？様だが、結論を言うと「出来ない」と言うか「出来なくなった」
（2015/6/13現在）

Office 365 でのパブリック Web サイトの使用

Office 365 SharePoint Online パブリック Web サイトの変更点について

新規で作成することがNGになったようで、既に作っていた人はあと2年くらい使えるらしい（ズルい）
作ろうとすると、外部レンタルサーバー屋たった2社（アメリカの業者）を紹介される。
日本語対応してるのはwix。

結局メールでoffice365の料金を払い、会社HP公開でレンタルサーバー屋に料金を払う。2重払いになってしまうよう。

ただ既に会社HPは公開してるだろからそのままにしておけば良い。
どうせ独自ドメインをoffice 365で使うために、レジストラのDSNをいじっていると思うので問題なく運用できてると思います。

ただ！wixはウィザードでHPが作成できるよう（有料版）。これからHP作りたい人には良いかも。年払いで半額キャンペーンもやっているし。ただ2年後以降幾らになるかは不明ですが、どうせ外資だし奴らのやることは信用できんです。

以下はそのままな話。

組織外の人とサイトまたはドキュメントを共有する

おわり

outlookの連絡先とアドレス帳の違いとは？

2015-06-13T16:23:00.000+09:00

MSのアプリ（ソフト）は多機能すぎて似た機能が沢山ある。

掲題もその一つ。何が違うの？理解できません。

そしたらMSの情報ページを発見。

備忘と情報公開。

連絡先とアドレス帳の基本を理解する

大したことは書いてないけど、違いは理解できる。

日本マイクロソフトの社内でも、連絡先とアドレス帳を使い分けている様。

簡単に言うと下記の様にやっているらしい。

機能	全社	拠点	チーム	個人
Exchange メール			○	◎
Exchange パブリックフォルダー	○	○	△
Exchange アドレス帳	◎
Exchange 予定表/施設予約	◎	○	○	◎
Exchange 連絡先				◎
SharePoint 個人用サイト	◎
OneDrive for Business				◎
SharePoint 予定表/施設予約	○	○	◎	△
SharePoint 連絡先	○	○	◎	△
SharePoint ポータル	◎	◎	◎	△
SharePoint ファイル共有	◎	◎	◎	○
Lync 連絡先				◎

↑　この表はMSさんのもの。copylight microsoft corporation.

MSのサーバーアプリを知らない人は上記名前を見て混乱すると思うけど、

ようは連絡先は個人用。

アドレス帳は会社共通のもの（※特殊なサーバー入れてない人には当て嵌まらない）。

上記※にあるよう、中小零細企業は、普通連絡先など全社共通化などされていないと思うので、

結局はどっちも似たようなものでしかない。

但し、連絡先には住所等、詳細情報をいれておけますね。

アドレス帳はただのメール羅列してある一覧。

結局特殊なサーバー入れていない会社や人は、同じものでしかない、ですね。

gmailをmboxを使わずoutlook2013へインポートする方法（超簡単・・）

2015-06-11T18:41:00.000+09:00

前回、outlook2013からoffice365へ過去メールを含め全てを移行する方法、に続き、
今回もメール関連、gmailをエクセルexcel2013に取り込む、要件があったので、備忘録。

すると掲題「gmailをmboxを使わずoutlook2013へインポートする方法」を行う必要があり調査。

調べるとgmail（メール）をアーカイブ　→　mboxをDL　→　Thunderbirdに取り込む　→　色々やる・・（面倒）
など行っているようですが、インストールやら設定やら、またインポート先にoutlook2013を指定できない、など面倒山積み。
と言うより結論を言うとできないらしく、、gmailのmbox → outlook2013＝無理。そんな感じ。なら時間の無駄ですね。
と言うか、何故わざわざそんな面倒な事をしているのか？意味不明？

とりあえずgmailの受信トレイにあるメールを取り込めれば良いのでは？
それで良いなら、無茶無茶簡単。
mboxなど忘れ、popで取り込めばよい。imapでも良いと思います。
imapなら送信メールも取り込めますね。ただimap＋outlook2013は試した事がないので他の方にお任せします。

掲題

　「gmailをmboxを使わずoutlook2013へインポートする方法」

解決策）

１．gmailのpopアクセスを有効にする（若しくはimap）
２．outlook2013にgmailアカウントを追加
３．送受信ボタンをクリック
４．終わり

ごく簡単に終わりです。。。

※ちなみに既存のoutlook2013にあるメールアカウントの受信トレイへ、上記popで取得したgmailを入れたいなら・・
　windowsなのだからドラッグドロップすれば完了。アホみたいに簡単です。
※Windowsのエクスプローラーのよう、outlook2013の左側に見えるフォルダはエクスプローラーと同じ。
　だからドラックドロップが使える。

問題あるとすると、送受信ボタンをクリックしても1回に250件しかメールが読み込まれない点。
仮にgmailが1万件あるとなると・・・
10000／250＝40回送受信ボタンをクリックする必要がある＝面倒。

が、その対策も簡単。
パソコンのスリープを無効にし、outlook2013の、

　　ファイル→　オプション→　詳細設定→　送受信

を開き、自動送受信タイミングを、1分おき、に変更。
あとはPCつけっぱなしでほっとけば勝手に受信してくれます。

上記1万件の40回クリックが1回1分だから40分。
∴最低40分あれば1万件のgmailがoutlook2013の受信トレイに取り込まれる。

以上で問題解決。

更に今回私が必要だった、「gmailをエクセルexcel2013に取り込む」
これはgmailを取り込んだoutlook2013からCSVにエクスポート→　これをエクセルで開いて完了。

参考画像）

gmailのpopアクセスを有効にする　（この画面は、右上の＊ボタン→設定から行く）

outlook2013側でgmailアカウントを登録（pop3）

（推奨）下記設定は、事前にgoogleの最新helpを参照　→　IMAP と POP3 の開始方法

下記画面は、
ファイル→アカウントの設定→電子メール→新規→自分で・・・設定する（手動設定）→popまたはSMTP→
で表示される

！！！　以下　要注意　！！！

１．サーバーにメッセージのコピーを置く、がチェックされている事を確認
２．サーバーから削除する、チェックを外す

outlook2013で受信すると、そのgmailメールがgmaiサーバーから削除される。
嫌な方は確認要注意！

・削除済アイテム」から削除されたら・・・
　これも嫌なので私はチェックなど外す。今回、gmailをoutlook2013へ取り込むのが作業なので削除不要。

この状態で次へをクリックすると（３つ上の画面）、アカウントの設定テストを行うが（チェックが入っているので）、エラーが発生する（2015年6月現在）

パスワードが正しくない旨を返される

これと同時に当該gmailに「ログイン試行をブロックした」とのセキュリティー警告メールが送信される

現在これはデフォルトの動作の様で、文章の指示通り下記赤四角内リンクをクリック

次の画面が表示されるので、オンにする。これでoutlok2013でメール送受信エラーは消える。

もしエラーが消えない場合は、上記行ったoutlook設定が悪い。設定箇所を正しく修正するまでエラーは消えない（慣れてないと結構設定ミスする事が多く時間がかかる。しっかり確認）

ちなみにoutlook2013はリスクの大きいアプリとgoogleは言っている。だから下記オンにしないとパスワードエラーとしてメールサーバーへアクセスさせないようだ。

上記でオンにしたので、確認のメールが当該gmailへ送信される。
再度言うが、gmailの取り込みが完了したら上記が画面でオフにしておいた方がよい。
但し今後もoutlook2013でgmailを送受信したいならそのままにしておけばよい。

最後に。
pop（pop3プロトコル）でメールを受信しても、pop3の仕様上受信メールに入っているメールしか受信しない。全部受信したいならIMAPで実験すること。
私はIMAP実験が面倒だったので取り込みたいメールを全てgmailの受信トレイに入れてからローカル（PC）のoutlook2013へ取り込んだ。

おわり・・・の前に、後処理。

outlook2013で送受信したくないメールアカウントがあれば（私は上記取り込み後のgmail）、送受信させなくする。
ファイル→オプション→詳細設定→送受信→編集→
送受信したくないアカウントをクリックし、「この送受信グループに選択されたアカウントを含める」
このチェックを外せば送受信してもそのアカウントはメールサーバーへ問合せに行かなくなる。
いわば、休眠している感じ？

もしoutlook2013に登録したgmailアカウントが不要になったら削除すれば、上記のよう面倒をしなくてよい。
削除は簡単、outlook2013のメール画面左にある追加したgmailのアカウントを右クリック→削除。
これでpcのローカルに保管されたデータも含め全て削除される。

今回の私はgmailをエクセルにインポートすれば不要なので、outlook2013に登録したgmailアカウントは削除した

と言う事で、　おわり・・・

outlook2013からoffice365へ過去メールを含め全てを移行する方法

2015-06-10T15:56:00.000+09:00

outlook2013（他バージョンも同様と思われる）からoffice365へ過去メールを含め全てを移行する方法は、以下１メールアカウント単位に移行する方法。
社員一人＝PC1台使っているとすると、PC１台つづ行う行う方法。

社員を段階的に移行する要件などには、社内ExchangeServerサーバーを使ったハイブリッド展開するしか方法がなく、ExchangeServerを社内で立ち上げ運用している会社は小企業では皆無？
まさかそのために社内にExchangeServerを導入するのは普通ではない。何故なら、AD環境＋FW（office365やazureが必要なポートを開く）＋ExchangeServer自体を導入（CALは社員分必要ない）＋サーバー１～２台。
これだけの環境を揃えると、設計料、導入費用、ハード購入費用、テスト費用、ExchangeServer移行費用、全費用を合計すれば500万～1000万ほど必要。よってこれは普通でないと思われる。

と思うので、1アカウント（PC1台づつ）、かつ、当該ドメインを使っている社員全員分の作業を一括（土日など？）で行うしかない。以下はそのための手順。

本題

「outlook2013からoffice365へ過去メールを含め全てを移行する方法」

結構悩み2日ほど要したが、非常に簡単だった。

答えは以下MSのページにある。

Outlook を使ってメールアカウント間で情報を移動する

補足）

上記を行うには、まず初めにoffice365で登録したアカウントのメールアドレスをPCのoutlook2013で送受信出来るようにする必要ある。

でも、それはとても簡単。

１．outlook2013の下記画面の電子メールアドレスにoffice365で取得したメールアドレスを入力
２．次へをクリック
３．すると自動で情報を探してくれる
４．見つかるとパスワード入力する画面が出るので、そこにoffice365メールのパスワードを入力
５．するとPCのoutlook2013へoffice365のメールが登録される
６．office365のメールがPC上のoutlook2013で送受信可能になる。

ファイル→アカウント設定→アカウント設定→電子メールタブの新規→上記画面表示される

補足）

office365アカウントをoutlook2013に登録出来れば、outlookメール画面左側の階層にoffice365のアカウントが表示される。これが出来ればあとは簡単。一言でいえば、エクスポート → インポートを行えば完了。

手順は上記MSのリンク先を参照し、その通りに行えばよい。

注意点）

エクスポートするのは、今まで使っていたPCのメール・連絡先等。

インポート先を間違えて選択すると、そこへエクスポートしたデータが取り込まれるので、インポート先を間違えないのが必須と言うかコツ。

以下参考画面。ちょいと見づらいが・・・下記は私の場合。

※office365で２アカウント取得したので、その両方を既にoutlook2013に登録してある
※また元々PCで２つのメールアカウントを使っていたので、今まで使っていたメールが２つある

紛らわしいですね。
普通は既存のメールアカウントが一つ、登録したoffice365のメールアカウントが一つ、ですね。

この画像はoffice365のメールアカウント２つをoutlook2013に登録した状態。
この状態になればoffice365のメールがPC上で送受信できる。

以上で、過去メールが全てクラウド化＝office365化の完了です。

※余計なことまで言えば、ドラックドロップでフォルダを持っていくこともできるようになる。

と言う事で時間がかかった敗因は、MSの当該office365移行手順URLを見つけられなかった、でした。

MSは情報ありすぎるからね。中々探せません。

・・・と言うより

outlook2013にoffice365のメールアカウントが取り込めた状態で、エクスポート→インポートすればOKだろ！くらい思いつけよ！と言う感想ですね。

別の補足）

office365で独自ドメイン（会社のドメインなど）を使うには、上記より先に行う、かつ、上記とは別の要件。
でもそれらはoffice365の管理画面からドメインを選択し、ドメインを管理している（購入した）レジストラの管理画面でDNSを書き換えたら（office365へ向ける）OK！

※DNS情報書き換えNGのレジストラだとoffice365でその独自ドメインは使えない＝他のレジストラへドメイン移管するか、そのドメインを捨て、新しいドメインを買いましょう。

と、とても簡単。
分からなければ業者に頼みましょう。

私なら綺麗なおねえちゃんのいる店でゴチしてくれたらやってあげますが。
但し23区内か横浜か浦和近辺かな？ん？やっぱ銀座がいいかな～

って、完全にオヤジ化してしまったようです、私、笑

office365の問題点（アホ話）

2015-06-08T16:53:00.000+09:00

ツマラン話で恐縮ですが・・・アホ話を一つ

数度チャレンジして挫折したoffice365（昔はBPOS？）

そろそろMS側の環境も揃い良い時期かも？と思い、色々調査しオンプレミスから365へ過去メールを含め全面移行出来る所まで調査が進み、あとはEnterpriseではなくBusinessを購入！と言う所まで辿り着たのだが。

私は一人でメルアドを30個ほど持っている。
そして移行対象の主ドメインもVPSのため好きにメルアドを増やし10個のメルアドを作ってある。

そして考えた。
「ん？office365って、１アカウント＝1メールだよな？んー、そりゃそうだよな・・・」

とここまで考えて初めて気が付いた。
「ぐぉー、、メルアド10個移行したら、月額540円＊10＝５４００円になるではないか！！」

アホですよねー、調べつくしあと５％で完了と言うことろで、最重要と言うか、当たり前の事に初めて気が付くなんて！！！

結局メルアドを削減するか、主要な２－３メールのみoffice365でクラウド化し、あとは適当なドメイン買ってそこで運用するしかないですね。って、同一ドメインを使い、メールサーバーを全く別の業者２つに置くって不可能。

結局一度office365を使い始めたら二度と元には戻れないですね。それって凄まじく凄いビジネスモデルです。真似しないと・・・ですね。

で、まだ悩んでます・・・

b-PAC＋PT-9700PC（PT-9800PCN）で、COM相互運用型エラー、エラーは出ないが印刷も出ない、COMエラー発生し印刷できない

2015-05-28T09:55:00.002+09:00

久々のプログラム制作

今さら感あるバーコードですが、JAN（EAN）とCODE39を印字しようと調べるとブラザーのラベルプリンターが他社の1/10程の低価格。またB-PACと言うSDKがあり自プログラムから印刷可能。早々PT-9700PCを購入し、そのB-PACを使ってみると・・・

嵌る・・・。プリンターが全くうんともすんとも言わない。

環境はWindows7の64bitとWindows8.1の64bit＋VS2010、VS2012、VS2013、の6通り。
全て試したがエラー発生せず。エラーが発生しない＝こう言うのが一番困ります。

ちなみにブラザーのラベルプリンターの価格は・・
「今どきUSB接続しか出来ないPT-9700PCが約2万、LAN接続できるPT-9800PCNは何と倍の4万強」高過ぎですね。
一応プリンターやSDKが外れの可能性もあるので安い方、PT-9700PCを購入。

エラーその１

「相互運用型 ‘bpac.DocumentClass’ を埋め込むことができません。代わりに適用可能なインターフェイスを使用してください」。

＜対処方法＞
これはググると答えが沢山出てくる。「b-pac エラー」などで。

このサイトから情報登録するとSDKをDL出来るが、ここでDLしたSDKをインストール。
（私はVer3.1.003の64bitバージョンDL ← これも間違いの原因＝その２で悩んだエラーの原因）
するとVisualStudioのプロジェクトにCOMの参照を追加できるのだが・・。

現実には参照で、Brother b-PAC 3.1 Type Library（ver1.3、なんで1.3なの？）を追加するとbpacと言う参照が出来、これをクリックすると「相互運用機能型の埋め込み」と言うプロパティーがあり、これがTrueになってるからFalseにする。

この問題は5分で解決。

エラーその２

上記対処してもプリンターは全くうんともすんとも言わない。プリンターを購入するとラベルをデザインできるP-touch Editor 5.1と言うのが付いており、このソフトからは問題なく印刷できる。

＜エラー内容＞

なし。そう、エラーにならないのです、自プロから印刷ボタンをクリックしても何の応答もなし。テンプレートのオープン、StartPrint、PrintOut、EndPrint、クローズ、何のエラーも起こらずスルーしてしまいます。

結局半日ほど悩み・・こういう時はホボ凡ミスが原因が多い・・と、初心に戻り最初から抜けがないか手順を追ってみと発見！原因は・・・やはりクダラナイ・・

＜原因＞

PT-9700PC（PT-9800PCN）に適合しているSDKが何と！！32ビット版のみ！
※私は64bit windowsなので気にせず64bit版をインストールしていた。

流石元が古いプリンターとSDKです。答えはブラザーのサイトにありましたが、もっと分かり易い所に書け！と言いたくなります。

b-PACトップ → 動作環境の下の方

http://www.brother.co.jp/dev/bpac/env/index.htm

＜対処方法＞

１．b-PAC、64bitSDKをアンインストール（私の場合）
２．b-PAC、32bitSDKをDLしてインストール

上記行うと、32bit版SDKが、ちゃんとx86フォルダへインストールされます。

余談）
Brotherのサンプルプログラムが使うラベルのテンプレートフォルダは64bit版sdkをインストールしたと仮定しているようで、要注意！！
素直にサンプルに従い、プログラムで読み込むテンプレートフォルダ先を間違えるとまた変なエラーが発生し悩むでしょう

これで大丈夫だろうと思っていたら、今度はCOMエラーが発生。今更COMですか？めんどくさい・・・

エラーその３へ進む・・・

エラーその３

テンプレートのOPENで下記エラー発生。

＜エラー内容＞

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
COMException
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
CLSID {xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx} を含むコンポーネントの COM クラスファクトリを取得中に、次のエラーが発生しました: 80040154

クラスが登録されていません (HRESULT からの例外:0x80040154 (REGDB_E_CLASSNOTREG))。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

こういう濃いエラーは、ググれば絶対誰かがUPしている筈！とググったら素晴らしい方が記事を残してくれていました！
こちらの素晴らしい方のおかげで即解決　→　こちらのお方
自己解決ではありませんが、最近はnetデバッグありですから。

※余談だが、最近netを見ていると２／３程のブログは嘘を書いている＝本人自身が嘘を書いている事に気付いていない。かなりレベルの低い自称SEがいるのでご注意！こういう方々を雇ってしまったら爆弾抱えている状態＝かなり怖ろしい・・しかも60-70％がこう言う方々。今後は面接よりペーパーテストを強烈に重視したいと思います。

＜原因＞

32bit版COMなので（何だか知らんがSDKが32bitだからそうだろうと勝手に解釈）、
プロジェクトのターゲットプラットフォームも32bitにしないとCOMエラーが発生する。

＜対処＞

プロジェクトのプロパティーにあるターゲットプラットホームをx86にする。

これ等、エラー3点の対処を行うと、バーコードが印刷された！祝

余談、最初から滞りなくやれたら「なんだこれ？こんな簡単なんだ」となるのでしょうが、システム開発ってクダラナイ事に時間取られすぎます。それがノウハウになりますが、でもそもそも論から言えば、それって違うのでは？ですね。早く明るい業界になって欲しいものです。

以上で、C#、.NET Framework4（２～４、OK!）を使い、自プロからBrotherラベルプリンターへの出力印刷が完了です。

ちなみに制作しているモノはシリアルNo＋製造番号ロットNo自動採番＋バーコード出力プログラムです。

＜その他の注意点：別のエラー＞

これも1度引っかかったので解説。

・サンプルプログラム実行時の注意点！

上記で言いましたが私の場合、P-touch Editor 5.1で作成したテンプレート、ibx、のロケーションフォルダ。32bit版sdkなので￥Program Files (x86)￥、です。

ブラザーのサンプルは￥Program Files￥となっているので要注意。このまま実行すればまた別のエラーが発生して悩みます。

※くだらないエラーであればある程、原因特定するのに時間かかる事が多いのでご注意を。

以上で解決です。

ちなみに上記サンプルで普通に印刷出来ます。

＜　まとめ　＞

１．32bitか64bitか、SDKを間違えずにインストールする
　　※印刷したいラベルプリンターに対応しているSDKを間違えずにDLしインストールする
　　確認はこちら → こちら

２．SDK提供のコンポーネントをプロジェクトの参照に追加する
　　※SDKをインストールすると、参照の追加で勝手にCOMの一覧に出てくる

３．interop.bpac（COM）の相互運用型をfalseに
　　※参照設定下にあります（C#の場合）VBだとどこにあるのか知りません。

４．プロジェクトのターゲットプラットホームをx86にする
　　※PT-9700PC、PT-9800PCN等の場合、SDKが32bitだからx86にした。
　　確認はこちら → こちら
　　※64bitSDKならx64かAnyCPUでokでは？ご自身でテスト下さい。

５．ブラザー提供のサンプルプログラム
　　ラベルのテンプレートフォルダのフォルダ位置が正しいか確認
　　※Program Files (x86)かProgram Files 、どちらなのか、インストールしたSDK位置に合わせる　

６．コンパイル　→　実行

※上記はPT-9700PC（PT-9800PCN）が32bitSDKにしか対応していないから32bit版をDLしたり、ターゲットプラットホームをx86にしている

ブラザーのどのラベルプリンターでも同様！ではないので、先程紹介したリンクから確認する事
http://www.brother.co.jp/dev/bpac/env/index.htm　←　ここ！

・エラーとは関係ないが、一応、どのフレームワークに対応しているのか試す

　〇：.NET framework 2.0
　〇：.NET framework 3.0
　〇：.NET framework 3.5
　〇：.NET framework 4
　×：.NET framework 4.5
　×：.NET framework 4.51

どうやら4.5以上はダメ、エラーが出る。だから素直に４を使いました。
よってVS2013でも開発出来る。

・それと使用フレームワークを.NET framework 2.0（や3.0？）に変更して遊んでいるとプロジェクトフォルダーにゴミがたんまり出来る（本当はゴミではないが・・）

system.なんちゃらとかMicrosoft.なんちゃらとか・・プロ内で使ってるからMSが親切にCOPYしてくれたのかな？

BrotherのSDKもサンプルも、元は古いので使用フレームワークが2.0や3.0になっている。
従って、遊んでるとゴミ？だらけになるので注意。

その場合は、フォルダ内の見た目が悪いので、プロジェクトを削除し、新しいモノに作り直しましょう
※ソースも消さないよう、どこかに保管しとかないと後で泣きますよ

そしてプロジェクトのプロパティーでフレームワークを4.0などになっているか、確認しましょう。

一応、プログラムからテンプレートのバーコードの数値をセットして印字するプログラムソース兼テストプログラム、載せときます。どうでも良い程度のコードですが、一応。C#。

ちゃんと環境が正しく、かつ、プリンターが正常に接続されていれば、
code39バーコードのコード：C987Z6001Q（末尾に自動でチェックデジットが追加されていた＝助かった）が、印刷されます。テープ幅は12mmを使用。

        const int TAPE_WIDTH = 12;
        const string TEMPLATE_FOLDER = "C:\\Users\\ｘｘ\\xx管理システム\\";
        const string TEMPLATE_FILE = "CODE39_1.lbx";
        const string TEMPLATE_PRINTER = "";
        public bool BarPrint()
        {
            string templatePath = TEMPLATE_FOLDER + TEMPLATE_FILE + TEMPLATE_PRINTER;
            bool ret = false;

            bpac.DocumentClass doc = new DocumentClass();
            if (doc.Open(templatePath))
            {
                MessageBox.Show(doc.Width.ToString(), "tape幅");
                MessageBox.Show(doc.Length.ToString(), "tape長DPI");
                MessageBox.Show((doc.Length * 254 / 1440).ToString(), "tape長");
                MessageBox.Show(doc.GetMediaId().ToString(), "メディアID");
                MessageBox.Show(doc.GetMediaName(), "メディア名");
                MessageBox.Show(doc.GetPrinterName(), "プリンター名");
                MessageBox.Show(doc.GetBarcodeIndex("CODE39").ToString(), "バーコードインデックス");
                MessageBox.Show(doc.CurrentSheet, "カレントシート");
                MessageBox.Show(doc.CutLineCount.ToString(), "カットライン");
                object[] sheetNames = doc.SheetNames as object[];
                foreach (string sheetName in sheetNames)
                {
                    MessageBox.Show(sheetName, "シート名");
                }
                // プリンターリストを取得
                object[] printers = (object[])doc.Printer.GetInstalledPrinters();
                foreach (string printerName in printers)
                {
                    //オンラインかどうかをチェックする
                    if (doc.Printer.IsPrinterOnline(printerName))
                    {
                        MessageBox.Show(printerName, "Online");
                    }
                    else
                    {
                        MessageBox.Show(printerName, "Offline");
                    }
                }
                // バーコード生成＆セット
                doc.SetBarcodeData(doc.GetBarcodeIndex("CODE39"), "C987Z6001Q");
                // 印刷
                doc.StartPrint("", bpac.PrintOptionConstants.bpoDefault);
                doc.PrintOut(1, bpac.PrintOptionConstants.bpoDefault);
                doc.EndPrint(); // ここを通り過ぎると印刷される模様

                doc.Close();
                ret = true;
            }
            else
            {
                System.Windows.Forms.MessageBox.Show("プリンターがOPENできませんでした。", "エラー");
            }
            doc = null;
            return ret;
        }
    }

＜結果＞

doc.Width         680      テープ幅
doc.Length        2556      テープ帳DPI
doc.Length * 254 / 1440     450      テープ長
doc.GetMediaId()       259      メディアＩＤ
doc.GetMediaName()     12mm      メディア名
doc.GetPrinterName()     Brother PT-9700PC  プリンター名
doc.GetBarcodeIndex("CODE39")  0       バーコードインデックス
doc.CurrentSheet      シート１     カレントシート
doc.CutLineCount      0       カットライン
doc.SheetNames as object[n]  シート１     SheetNames
doc.Printer.IsPrinterOnline(printerName) Brother PT-9700PC  オンライン
doc.SetBarcodeData(doc.GetBarcodeIndex("CODE39"), "C987Z6001Q");

印刷されたバーコード ⇒ C987Z6001QI
※印字してみたところ、自動でチェックデジットが追加されていた（上記の場合は　I　です）

それをバーコードリーダーで読込  ⇒ c987z6001qi

・元になったテンプレートと印刷結果を載せておきます

このテンプレートのバーコード、下のテープ部からはみ出てますが、はみ出た部分は無視され普通に印刷してくれます。
※ファイル名が違いますが・・でも同一テンプレートです

こんな小さな印刷物、テープ幅12mmにCODE39だから物凄く小さいです。
でも2千円のリーダーでもちゃんと読み取れます。

この写真はブラザーのテストプログラムから印字したものですが、上記プログラムからも印刷出来ますので。

という事で久々にプログラム組みましたが、やはり楽しいですね。
何時もDBしか相手にしていませんでしたが、こうやって目で見えるモノが出てくると、尚楽しいです。

おわり

Outlook2013 連絡先（アドレス帳）の並び替え（ソート）

2014-11-20T06:21:00.001+09:00

今更、Office2013インストールしましたが、Outlook2013の連絡先（アドレス帳）の表示順が変！
netでググってみたが、全然解決策が無い

連絡先は、Outlook2013の左下の連絡先リンクをクリックして表示される連絡先ではなく、メール作成時の宛先、リボン→　ホームにあるアドレス帳ボタンクリックで出てくる、ダイアログ形式の連絡先一覧表の事

どうやらフリガナでソートされている様？だが、約1/3はフリガナ入力していないので（連絡先は、超古いoutlookから引き継いでいるから）、手でフリガナを消してみるが、それでも並びが変、と言うか登録の古い順に昇順に並んでる？良く解りませんが？？

※ 新しい記事作ったので不明な方はどうぞ　→　outlookの連絡先とアドレス帳の違いとは？

＝解決策＝

もう面倒で、どちらにしろ手段が無いようなので、、連絡先を→削除→新規作成する事に、

作業は・・・

１．連絡先をエクスポート
２．エクセルでフリガナ消去（若しくは全てに振り仮名を振る）、私は面倒なので消しました
３．outlook2013の連絡先を削除（連絡先を全件選択してdelキークリック）
４．outlook2013へインポート
５．おわり

もっと詳細に書くと・・・

１．outlook2013のデータファイルの場所を調査

　ファイル→　四角いアカウントボタンクリック→　アカウント設定クリック→　アカウント設定ダイアログが開く→　データファイルタブ→　ファイルの場所を開く（データファイルが沢山ある場合は、以下一つづつやる事になる）→　エクスプローラーが開いてOutlook.pstが出てくる

２．そのままコピペして、outlook2013全体をバックアップする

outlook2013を終了→　１のデータファイルをコピペする（バックアップする）
（私の場合は約800Mbyteだった）

３．連絡先をエクスポートし、する

outlook2013起動→　ファイル→　開く／エクスポート→　インポート／エクスポート→　ダイアログが開くので、ファイルにエクスポートを選択→　次へボタンクリック→　テキストファイル（カンマ区切り）を選択→　次へ→　エクスポートするフォルダーの選択で、連絡先を選択→　〇〇.csvと名前を付け次へ→　完了ボタンクリックで〇〇.csvが出来る（数秒で出来た）

※必ずファイルを開いて、エクスポートが正常に完了したか、内容と件数をチェックする、もしチェックこの後でミスると、泣くだけでは済まなくなる・・

４．上記３．で出来たCSVをエクセルで開き、フリガナ（性）、フリガナ（名）、を全て空白にして、CSVで保存する

CSVを編集する前に、このCSVファイルのバックアップを取っておいた方が良い
※誤って何処かで、とちったら連絡先全件消去するので、連絡先が永久に消滅する、、、

５．outlook2013から連絡先を全件削除

連絡先を全員選択し、delボタンを押すだけで削除される

場所は左下の連絡先でも、リボンにあるアドレス帳でも、どちらからやってもOK、全員選択し、delキーを押せば全員消える
これでoutlook2013から全員の連絡先が消去される

※３．のエクスポートが失敗していたら、この時点で連絡先は永遠に復旧出来ない、一から手打ちしか復旧方法はない、よって、３．でCSV内容の確認は必須！！！

６．上記４．で編集保存したCSVをインポートする

ファイル→　開く／エクスポート→　インポート／エクスポート→　ダイアログが開くので一番下の「他のプログラムまたはファイルからのインポート」を選択し、次へ→　テキストファイル（カンマ区切り）を選択し、次へ→　インポートするファイルで、４．のCSVを探して選択し、次へ（オプションはどれでも良い、outlook2013の連絡先は先程消したので）→　インポート先では連絡先を選択し、次へ→　完了をクリックするとインポートされる（数秒で出来た）

７．連絡先の並び順が綺麗になった

８．おわり

UPSの処分方法 by 東京23区

2014-06-17T21:27:00.000+09:00

１年振りの寄り道ですね。

最大限に困っていたUPSの処分方法
パソもサーバーもウチの区は粗大ごみとしても、廃棄物としても扱ってくれない

でも特に困るのがUPS
なにが困るかと言うと、、、バラして捨てられない！そしてとにかく無茶苦茶重い！！！
ウチにあるのは小さいものだが、重さ25kg
25kgと聞くと大したことないけど、あの小ささで25kgはかなり利く！腰逝きそうになるし・・・

クラウドを使い出してからオンプレミスのサーバーは使う時だけ電源入れる状態
邪魔だしUPS外してしまった。
で、処分しようと思ったら、、メーカー酷いね。

とにかくどの会社も・・・

　　　　　　売りっぱなし

もうお前が所有者なんだから知るかよ、捨てたきゃ自分で捨てな！的な・・
何だか昭和を感じたけど、所詮法律無いとそんなものなんだね、巨大企業は昔から冷たいからね。特にウチは外資APCなので輪をかけて酷いのだけど。

区で引き取ってもらえないかと調べると
「産業廃棄物」とか「特別産業廃棄物」は×。パソ廃棄屋もUPSは×

ホトホト処分に困っていたら、なんと素晴らしい会社を発見！！
UPSを専門に引き取っている会社。ちょい前置き長くなったけど（歳のせい）ご紹介

板橋区の鈴福商店さん！

１年以上も処分に困っていたので感動してしまった。ただ梱包は大変だったけど。少し腰に来てしまったし・・^^;

あ、ただこういう会社さんが迷惑になる事は止めましょうね。
約束守らず何でもかんでも送ってしまうとか絶対厳禁！
でもそういう荷は受け取り拒否で発送者の元に返るから大丈夫か。

とにかく超感動してしまったのでブログ書いてみました

話変わるけど、、

ちなみにソフトもシステム開発も、もう全然キツイ。ほぼやってないし、やはり50になると無理だね。
それで先日気が付いた事が！

ソフトやシステム開発出来るって、手に職を付けたと思っていたのだけど、実は全然違っていて、
ただ単に脳に職を付けただけ。
当然記憶力や集中力が衰えてくると使い物にならなくなってくる＝オレ
システム屋脳は体が衰えだすより、、体が使い物にならなくなるより、、10年～20年早く訪れる！

手に職を付けるって、体で覚えた技術の事を言うのだと身をもって知りました。
我々で言う体が覚えた技術と言うと、、

　　　　　　　　キーボードが人より速く打てる・・・だけ

たったこれだけだよ。身についた技術って。それに気が付いて愕然としてしまった。
プログラマー35歳定年説など昔にあったけど、そんなもの笑ってたけど、定年が50歳前だと言う事がよ～く理解できた。

悲しいねー、この30年は何だったんだ？出来るのはキーボードの速打ちだけ・・・

現代にしては息が短すぎる職業。皆さんもシステム屋でいるなら、40代後半までと思って間違いないよ。このブログに来てるバリバリの技術屋さんたち。中国と同じで50歳になったらリタイヤだよ・・・

だから40になる前から物の売り方覚えた方が良い。若しくは金、沢山の金を持った方が良い。でないと辛い人生が待ってる・・・
稼げるときは消費者と呼ばれ、、、この消費者と言う言葉はモノを売る側の人間が使う軽蔑用語と最近知った。
売れない稼げない奴は会社でも家庭でも必要ない。消費者でもなくなればモノを売る会社販売店からも必要とされない。
恐ろしいことだよ、自分で現ナマ（本当の現金ね！）を稼いだことがないって。ホントお気を付け下さいね。そして厄年過ぎてからの身の振り方を考えましょう！50になって分かっても、もう手遅れと言うケースが多いからね。。

AQUOS PAD SH-08Eのここがダメ

2013-08-03T22:51:00.001+09:00

えーっと、ソフトとは全く関係ない話ですが、ちょっとスマホの話でも。文句多いからイヤな方は見ないでね♪
先月アンドロイドスマホを買いました。SH06Eと言うシャープ製。googleのサービスが使いたかったから。

Wiggle

これまでWindowsPhoneを確か6～7万で買って使っていましたが、購入して半年後には１万で売っている始末、嫌な思いをしながらそれでも1.5年近く使ってましたが、もう限界。やっと違約金発生しない来月に解約します。
※違約金って法律違反になったのでは？それでも続けてるの？クレーム入れたら払わなくて良くなったりして？笑

普段使いで一番の問題はgoogleマップがろくすっぽ使えなかった事かな？これはWindowsPhoneでは我慢しか方法がない。米アプリのそれらしいモノ入れてましたが正直使えない。徒歩、電車、自転車、やっぱアンドロイドで使うgoogleマップは段違いで良いです。それに他のアプリも豊富だからね。

個人的には物凄く押してたWindowsPhone、アプリも作って公開したけど、結局とても半端なスマホになり下がってしまったようで残念。アプリも結局盛り上がりに欠け、日本語アプリの少なさは今でも変わらず。
一番の原因は日本でversion8OSが出なかったこと。なんで！？意味不明。。MS好きの私でも、もう限界、押す事が100％馬鹿らしくなったので、終わりです。

と、話し戻しますが、、

とにかくこのSH06Eを買ってから自宅でもPCをあまりつけなくなり、インターネットは殆どスマホ。ショップの受注作業までスマホでやってしまう始末。　ただ一つの問題は、、、画面が小さい。

んー、と思っていたら、SH-08Eと言う7インチのスマホと言うかタブレットが出た！電話も使えるらしく、欲しかった大画面が方手持ちOK!　持ってるiPadはデカ過ぎ使いづらく全く使ってないし、7インチ！こりゃ買い換えだ♪
と調べていたら・・・・あらら、、スマホじゃなく残念な感じのタブレットなのね～と言う個人的感想。。

で、SH08Eがダメな理由（あくまで私の感想）

１．普通に電話出来ない（骨伝導イヤホンなど必要らしい）よってスマホの代わりにならない。
　メーカー担当者インタビューではデカいからイヤホン対応と言っていたが、逆にイヤホンつけなきゃ使えん電話付けてどうする？意味あると思う？使いづらいと思わない？車で使うしかないの？道路や会社でいきなり喋りだす奴が居たらカナリ怖いでしょ！何が変なのか？使いづらいのかわかんないかな？多少デカくても楽な方が良いでしょ！
　・・・と言うかただのおまけで付けたよう、やってること意味不明ですね。
２．画面以外の余計な部分が多すぎ、特に縦が長すぎるからでかく見えすぎる
　画面以外の無駄な部分が多すぎる、それ程大きくすることに意味なし、縦は全く意味ない。だから作ってる本人からして変だと感じ、だから普通の電話つけなくていいや、みたいになってない！？、・・って、ｼﾂｺｲね^^;
３．カメラがスマホに比べダメ過ぎ、完璧に手抜きでしょ？
４．お財布携帯が使えない（別会社のサービスで、シール貼り付けたら使えるが）
５．フルセグなんてイラナイから１－４をどうにかしてほしい
　世間とずれてない？誰がマーケティングした？フルセグつけて利用者の何％が喜ぶ？0.012％くらい？
多分自分たちが喜ぶために作ったのだと思います。そんな事してたら真面目に完全に完璧に何時か会社潰れます、（個人的予想）。売れるものを作りなさいよ、そして売りなさいよ、サムスンのように。

タブレットと言う括りで出すことでスマホに比べ大分手抜きしているように見える。ホント、フルセグ、誰が喜ぶ？japanは4Kテレビ作ってサムスンに対抗しようとしている？時点でずれているのに、その流れを汲んでズレてるの？なんでズレるかな・・・？
それともわざとズラしてる？だとしたら物凄いパワフルな秘密が隠れてそう、中国も韓国もやっつけちゃうような秘密が、それなら是非教えてほしい♪

結論は、結局スマホでもないタブレットでもない端末作った様に思えます。手抜き多すます。

期待した分とても残念でした。私的には１．の電話が普通にできない、これでアウト、となりました。他は何とか我慢できるからね。

何故こんなこと書いたかと言うと、個人的にはPCの置き換えで使える7インチ程のスマホが欲しかったから。SH06Eは予想外に結構よい端末なので、SH-08Eもシャープ製だし！と思ったわけです。とにかく画面が大きい楽スマホが欲しかったのだけど。

PCの置換と言ったけど、10インチタブレットだろうと12インチだろうとキーパンチが苦手なスマホ・タブレットで本気メールや本気ワード・エクセルなんかは出来ません。ノートパソも同様。そこは普通にPCでないとね。
だからそれ以外の作業が全て出来る７インチ程の方手持ちスマホ出して欲しいですね。・・50代以上はiPadだけど、それ以下は7インチで対応できる（老眼出てなければ）。

SH08E仕変して是非スマホとして出して欲しいです、SH08E-Sとかね♪

でもさ、以前百貨店が潰れたりしてたけど、その理由の一つに、女子高生や20歳前後の女性が着る服を、女性誌も読まず興味もなく若い女性を知らない、ただの中年オジサン、・・・そういう部署に異動してきたと言う理由だけ・・・、が選んでいたという事実。ズレてるとか、もうそんな次元を飛び越えたことを当たり前な事としてずっと行っていたみたいね。そういう小さな積み重ねでダメになった＝潰れた、当たり前の事です。
なんだか日本の家電業界も同じことをしているように思えてなりません。中国・韓国にやられるなんて個人的には悔しくてたまらないのだけど、でも日本メーカーのやってる事はズレてるとしか思えません。シャープだってシャープの先代社長×だったから会社潰れかけてる、たった一人のズレ人間のために。パナもそう、先見の明が無い×社長が無茶な投資をして結果失敗。緊張感無さ過ぎなんだろね、途上国や諸外国に比べぬるい日本の大企業は。社長がこの先も安泰と思ってる×な方々。
そして・・・、今現在もズレてます。多分この先２～３年分もズレてます。方向転換しないと10年先もズレてるでしょう。お先真っ暗で怖いよ・・・大手が潰れると下請け孫請け全部潰れちゃう、国を揺るがす？恐ろしい恐怖がたった一人の×社長が引き起こす、怖いです。。

これだけ喋ってズレてるのは俺だったりするのかも知れないけど、、^^;

ま、とにかく、SH08E-S、出してください！宜しくお願いします～♪、＾＾

Wiggle

爆速激速VPN＝L2VPN

2013-07-25T21:18:00.002+09:00

驚きました、＠＠
ある会社（ソフトイーサ）が出しているVPN＝L2VPN。VPN処理をWINDOWS-OS上に配置したソフトウェアで行っている、ソフトウェアVPNです。

が、しかし！話さずにはいられないほど驚異的な爆速VPNだったので、話します、笑。
あ、しかし、同一局内＝超近距離ですけど。

それと一般的なVPNはL3VPN＝ネットワーク層で行います＝俗に言うIPと言う奴。
このVPNはL2＝データリンク層＝一般的にはイーサネットを相手にしてます＝当然L3まで処理が及ばないので構造的にも速そう＝速い。

Wiggle

インターネットを介したVPN＝当然距離によって速さはどんどん落ちて行きますが、通常VPNは入力業務では使えない激遅と言うのが相場で、当然SQLクエリとその応答を含んだVPNを介したパケット交換を行う業務システムは使い物にならないケースが多く、普通のファイル交換でもとろな～と感じるのが常識。
要するに、どのVPNハード屋も業務ソフトの作りが問題、と言う所に落とし込みます＝俺のせいじゃない。

先日たまたまですがVPN案件がありアドバイスを求められ、F/WもグローバルIPも持っていない会社だったので、前から気になっていたソフトイーサのL2VPNをテストしてみては？そう提案しました。理由は数種のハードウェアを入れるより価格が安く数分の一の費用で済むから。

ルーター設定と環境を構築し（私は見てただけ）WINDOWSフォームで出来たSQLサーバーと通信を行うクラサバ業務システムをインストールし、さて、テストしますか！となりOPにデータ入力してもらったところ・・・

　　なんと！！！　　社内LANで使うよりVPNを介した方が動作が数倍速かった・・・、笑

実際のところのオチは、社内LANで使ったPCは数年使った古いXPマシン。windowsアップデートが沢山入り、数々の知らんソフトもインストールし、要するにかなり遅くなってしまったマシン。
リモートで使ったPCは箱から開けたての新品WIN7でCUPは遅いけど今どきのCUP、遅さの原因WINアップデートも変なソフトも入ってない＝PCの一生のうちで一番早い時、です。

しかしそれにしても同一局内の数キロしか離れていない超近距離間通信＋真っ新の一番速い状態のPCとはいえ、一応インターネットを介したVPNでトンネリングし暗号化処理まで行っているのにね。しかもWINDOWSにインストールしたソフトウェアが行っているソフトウェアVPNなのに！

とにかくクエリのレスポンスが無茶苦茶速く、キーをクリックした瞬間マスタテーブルの一覧表が表示されるのですよ、0.01秒位！？その他の複雑で多量データからSQLクエリを行う処理も同様に爆速。しかもストアドを全く使っていない業務システムです。もしや社内LANより速いのでは？と一瞬思ってしまった程の速さだったので驚いた訳でした。

が、実際は何処までインターネットと言うところへ出ていたのかは不明ですけどね・・・

次回は500キロ離れた場所からテストをするそうで、どれだけ遅くなるか結果が楽しみです。
でも本当に使えるほどの速さだったら、L3VPN＝普通のVPNなんて死に体＝化石では？と思います。
ただもし本当に超高性能だったら、発売元の会社やこの製品が潰されないか心配・・・だってL3VPNなんかで商売になる訳がない・・・

と、現時点ではその位の驚きでした。　世の中って広いね・・・

Wiggle

コンサル兼SE兼プログラマーの引退年齢

2013-06-26T05:25:00.000+09:00

自称40、実年齢48、個人で営業していた頃の名残で未だ仕方なく６つのシステムの面倒を見ています。全てWindowsフォーム＋SQLServerのクラサバ。SQLのデータ件数もツゴ3千万件程になります。正直面倒で辞めたかったのだけど・・・、違う理由で辞めることになりそうです。

昨年1千万近い予算でとある特殊な事を行う新システムを、なんだかんだで半年程かけて作りました。正直、コードを書く作業が・・・カナリしんどかった。

Wiggle

そして現在。んー、ちとダメかもしれません、そろそろ限界かも？？？脳と体がついていけない感じ♪

若い人（～33くらい）には分からないと思うけど、分かり易いところで言うと子供の運動会。練習もせずいきなり参加、走ってみると足がもつれたりするでしょ？
って、わたしゃーそんな事した経験ないからあくまで想像なんだけど、若いころの自分を脳が覚えているのに、何故か体がついて行かず、足がもつれる、転ぶ、など思ったように走れず
？？？そう思うのでは？
例えば20kmマラソンで最後の5kmでもうどうにも自分が自分でないみたいになってしまう、なんで？俺ってこんなんじゃなかったのに・・・
あ、25過ぎると酒が弱くなる、そんなのにも似てます。

そしていまの私はそんな感じ♪

膨大な仕様を頭の上に画像で配置暗記しながら、あっちの事もこっちの事も考えながらコード組むのですが、まず画像を記憶しておける量が減ってきた。25%減。すると減った量の２乗くらい効率が落ちてきます。

それとこれが一番の問題、集中力が維持できない。忙しい時や、大きい処理を書く時は、集中して長い時間書かないといけないのだけど（これを潜水と呼んでます、息を止めてやってる感じ～）、それがキツクて集中力を維持できません。長時間集中するとイヤな汗をかくのだけど、この汗に我慢が出来なくなってキレそうになる。そう、こらえ性レベルも低下してる。

例えば、超！ロングな重要処理を３日間かけて書く、初日の朝起きて、あとは適当に机で食事取りながら３日間集中する訳ですが、せいぜい持って１．５～２日。時間にすると1日16時間コード書いたとして24時間～32時間で限界。すると残りの１日分は集中できずダラダラ。
たった最後の1日の集中力と気力がないだけで、３日予定の仕事が５日かかったりする。要するに途中半日～1日の休みを入れないと脳と体が持たない。

そしてこれを数か月繰り返し一つのシステムを完成させる。んーーー、正直無理だよ、(^_^;)

これを分業可能なレベルまでDBもキチット作り仕様も落とし込めば、集中する時間を減らすこと出来るから多少は楽になると思うけど、逆に分業可能なレベルまで仕様を考え落とし込む時間が無駄！！効率が良くなるなんて嘘。
落としてから作ると完成までの工数1.5倍、例えば昨年作ったシステムを3人で作ったとすると、工数2.5倍になります、多人数で作る事は無駄が多い。能力の差もいちいち考慮する必要あるし、超面倒。
ここまで酷いとは、大きな会社に勤める人ほど理解できないと思います、一人に託すなんて経験ないだろうからね。英語と日本語くらい、話す言語が違うくらいに違うやり方。
35位の頃、汎用やPC案件に参加していた時など入りで1人月額100万が5人で500万、年間約6000万。正直俺一人でやっても全然楽勝で出来るレベル。1年位なら気力体力続くからね、1日16時間OK！多額の金入ってくるし。ほんと笑えない程の低効率なんです、能力しかり、その位のレベルです、集団制作の無駄って。常にそう感じていて。※銀の弾などない
その無駄な事が超！超！大嫌いで、それを押し通し続けたら一人になった、よくあるケースの人種です、はみ出し者、笑
（日本は非効率に向かっています、急速に。労働時間然り、今後国内生産を続ければどんどん生産性は落ち続けるでしょう。改善もされません。また中国も急速にそうなるでしょうね）

ただそれもついに限界到来。

新しいことを覚えるのも面倒になったし、クリレポ2012Verや、VS2012も中途半端。先日プレリリースされたVS2013＝クラウドをかなり意識している。DLはしたけどインストールまでしてません。想像だけなら夢が沢山あって楽しいVS2013だけど、実際には上記の通りで多分地獄に。

今年中に客には、新たなシステムは組まん！そう話をつけ、

今年から手を引き始め、40代終わりを境に完全に現役SE、プログラマーは引退です。

第一線級の知識レベル保持情報レベルから離れるとコンサルも無理＝半端業者はゴミでしかないから引退

20歳からソフト始めてはや30年近く、名残惜しい・・・とは全く思いませんね。

だってキツすぎるし、これ以上やったら真面目に死んじゃう、笑

実は・・・もっとおセンチになるかと思っていたけど、辞めると決めたらせーせーしてます。

今まで俺を数十年に渡り追い込み続けやがって、ざけんな！ざまみろ！と言う気持ちあるね

ざけんな！ざまみろ！は、これは客に対してかもしれないね、笑

ただ食いぶちが一つ減るから、その分また新しいこと始めますが、でもこれまでソフトに費やしてきた時間使って新しいことが始められると思うとわくわくするし、ホント早く辞めてしまいたいです♪

・・・と言いつつ、いまネットワークの勉強してます、ルータ、F/W、UTMなど。コンピューターはもう辞めようと思ってるのに、、、真面目にこちらからも手を引きますが、最後に心残り残して行かないため勉強してる感じです、笑

全ての契約を解除し、全て終わったその日、空に向かって全身で伸びをしたいですよ、

その瞬間が多分人生最高の瞬間になると思います、早くその時が来ないかな～♪

でもその瞬間は、これからきたる第2の地獄の始まりでもあるのだけどね、笑

ここからは話逸れるけど・・・

生涯現役なんて、あんなの嘘っぱち。中年は中年、ジジイはジジイでしかなく、年寄は年寄でしかないんだよね。脳も体も体力も。
自分がジジイや年寄になったせいで、やがて人の足を引っ張るようになります。第一線の最高の舞台を降りたら、それは引退したと同じ。第二の人生＝隠居すると大して変わらん。

昨年2度目の引退したF1のシューマッハ見たでしょ？復帰して40代で3年もF1つづけたけどどうだった？やっぱね、無理、体力も脳も。チームの足をひっぱり多大なる迷惑を。

だからやれるうちに思い切りやっておく、特に若い内は無理利くのに勿体ない・・・
最近の人ってブラックだのなんだのガタガタ文句多すぎるね、煩いしウザい。1日16時間、10年仕事したって死にやしないし、仕事時間減らして遊んでたって大して面白いこと出来んしょ、半端な時間しか作れないのだから。すると遊びも仕事もどちらも半端でどっちつかず。だったら仕事辞めて1日遊べって。でもそれも出来んしょ、口ばかりで踏み出す勇気無いのだから。

やがてやりたくても出来ない瞬間が来るのに、勿体ないね。将来に対する不安ないの？あれば、コワけいなら、戦うしかないのに。きっと法律やらなんやらで守ってもらう事ばかりに慣れてる。でも自分の身は自分で守るしかないのに、それに気が付いてない。口で言っているだけで実際にやらない。頭で考えない。得体の知れない物を信じ最後に裏切られボロボロになった人を多く見る、可愛そう・・・でも逆に言えば人が良過ぎる、世の中そこまで良くなってないよ。
守ってもらうことに慣れた人は、当然そんな人は発展途上国や中国人などと勝負出来るわけない。気合違いすぎるから、生命力が違いすぎる。が、その中国人も最近は文句ばかり言うようになりダメになってきているようだけど・・・

国や社会や世間に騙されてはダメ、コワければ戦ってください。恐くなくなるまで戦ってください。そのための時間も気力も沢山作れます、若い人たちは。多分37までは死ぬ気で戦えると思います。気合入れて頑張るしかない。
頑張れって、、、無責任であまり好きな言葉でないけど、それ以外の言葉ないし、生き残るため、世間や社会や国に自分潰されないよう、気合入れて戦ってください。
それでも死にませんから♪

38以上のは・・・そこまで戦ったら死んじゃうかもね？

ジジイが偉そうに言ってますけど、その本人も本格的にソフト組むようになったのは30歳から、そこそこ組めるようになったのは40過ぎ。仕様だけは20代で覚えられたので（30歳までに8年ほど1日16時間労働してやっと覚えられた）助かりましたが、ソフトに関しては人よりかなり遅いレベル。散々イヤな想いもしたけど、そんなレベルでも諦めなければ最後は勝ちます。だから絶対諦めないと決めて進んでください。

あ、金持ち父さんと貧乏父さん、なんと15年も前の本だけど先日中古を買って読んでます。特に！日本のサラリーマンに伝えたい話が山のよう！！！
一度読んでみると良いですよ、「実践」したら人生変わると思います。成功するか壊れるかそのどちらかへ♪

Wiggle

HTML5とSilverLightとWindowsFormとMicrosoftってどうなの？

2013-03-21T21:45:00.000+09:00

重い腰をようやくあげ・・・幾つかの業種に向けた数種の業務用ソフト販売を企画検討しているのですが、さて、今どき何を使って作る？

Wiggle

私は今でもバリバリWindowsForm人種で、現在も95％はWindowsForm。従ってMSにべったりオンプレミスのクラサバです。言語としてはC#、TSQLは10％、残り5％が、PHP、HTML、JavaScript、WordPress!?

このオンプレミスですが、プログラマの5倍～10倍の速度で文字入力するオペレーター（人間技とは思えない速さ）が利用する機能を有することが多く、その反応速度から、Webシステムは論外、WPFもダメ、共にこれまで全く興味ありませんでした。結局現在もSilverLightもWPFも全然winFormを超えられず、信頼できるは今もWindowsFormしかありません。

ただ委託が多く、内容も金額も俗世間とかけ離れた世界のため一般向けソフトとしてみると、一般的・・・と言うのに疎く色々調査していますが・・・考えがぐるぐる回って中々纏まりませんね。

当初WindowsFormを採用し、拡張性はクラサバ化、具体的にはSQLServerのエディション別に内容と価格差をつけようと。スタンドアロン、AD、VPSも使えるし、ソフトをインストールしたサーバーごと売っても良いし。
・・ほとんどこれで決まりかけていました。ただこれにはソフト不正COPY防止機能とアップデート機能をどうするか、ClickOnceはフォルダ内がゴミだらけになるので使いたくなく、検討中でした。

が、これだとソフトもそこそこの価格、数十万～します。毎月か毎年の保守料も必要。んー、どうなんでしょ？今どき？と思いましたが、考えてみると主要ソフトって今でもPCへインストールするタイプがほとんど。
Webシステムは、機能や操作性、端折ってる半端なケースばかりで（実現できない、、などなど）、FBも昨年webからスマホネイティブアプリに変更した。
よくよく考えるとソフトとしてのWEBシステムは2013年を見ても全く主流でなく（動作遅すぎ・・表示しかできない・・）、システムやサービスとしてみると、ゆっくり入力＋情報系でしか使えない。

ならいっか、そうと思ったが、果たして価格的に売れる？売り物になる？営業に回らせないと売れない代物？
例えば2ケタ数十万のソフトを営業が売り歩いてたところで、それで君の給与稼げるのかな？みたいな。月に数百は売ってもらわないとだけど、日本中駆け回っていたら経費いくら使う？益率は？

んー、、、正直、こんなモデルだとサポートまで入れたら全然儲け出ないのでは？∴これでは商売でなく趣味になってしまいます。詳細に計算してませんが、パッと見、営業使わないと売れない数十万円台のソフトなんかダメでは？としたら・・・そもそも、、、みたいな。
あらら・・・・

そこでマイクロソフトのクラウドなんかはどうなの？そんな感じで調べ始めました。富士通はazureを自社ブランドとして日本国内にサーバーを置き商売を始めたので、これ使えるのでは？と。

と、ここで幾つかのアーキテクチャを調べました。

まず見たのがHTML5。夢があり期待は大きかったのですが、まだダメですね、と言うか2013年現在では全然xダメ。∴却下。とても残念です。

WEBは？WindowsFormと比べると画面見劣りしすぎで、よくある速度もユーザifもどっちつかずの中途半端で、、googleのapps位の事が出来れば別だけど、似たような物はよく見るけど開発に￥かかってそうな割には操作性悪くバグまで残っていたりと、日本の普通の会社レベルでは無理、∴却下。

あと、何がある？adobe？無理、と言うかムリ。
すると、SilverLightしか残ってない・・・。azure抜きにしても、込み入った事をWebでやらせるなら、他に選択肢がない？

しかし今さら流行ってもない、MS本国でも最近あまり力入れてないSilverLight、どうなんでしょ？？？
国内の事例見ても、ちょぼちょぼ位しかないし、、と言うか、日本でこれ使った商売ソフト売ってたなんて、、、そちらに驚いた。

んー、WindowsFormなのか、SilverLightなのか、その他の何かなのか、結局結論でず。　
ブラウザで動く普通のソフトがもう少しまともだったならいいのですが、10年たっても大して変わらないですね・・・Javaも結局は結構￥かかるし、PHPはHPならいいけど業務ソフトをスクリプト言語で!?

グダグダ記事ですが、とりあえず何かを使って実現します。
次は出来た！と発表したいですが・・・文章が長い分だけ悩みも長く・・

（続く・・）

Wiggle