[B! VBA] mag4nのブックマーク

VBA-tools

You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session. You switched accounts on another tab or window. Reload to refresh your session. Dismiss alert

mag4n 2015/10/20

VBA

リンク

Excel で UTF-8 の CSV ファイルを出力する VBA プログラム - 知に至る病

2014-04-25 Excel で UTF-8 の CSV ファイルを出力する VBA プログラム Excel VBA Excel 標準の機能だけでは UTF-8 の CSV ファイルを出力することができません。メニューから［名前をつけて保存］すれば CSV 形式で保存することはできるのですが，残念ながらエンコーディングを指定することができません。ワークシートを CSV 形式で保存した場合，エンコーディングは強制的に Shift_JIS になってしまいます。 Excel で UTF-8 の CSV ファイルを出力するには VBA を使います。 ADO（ActiveX Data Objects）の ADODB.Stream オブジェクトを利用すれば，エンコーディングを指定してデータを読み書きすることができます。ただし，この方法で UTF-8 のデータを出力すると BOM が付加される

mag4n 2015/09/19

excel
VBA

リンク

セルの内容をJSONファイル化するアドイン - SO NOTE そうのて (；^ω^)

JSON記法がどうも頭に入らなかった(ホント、どんどんあほになってってるなぁ…orz)ので、憶えるためってのと、業務で使う予定なので作ってみた。ソース以下はThisWorkbookモジュールに記述 Option Explicit Private Const cnsMenuName As String = "Cell To JSON" 'Cellバーに追加する際のメニュー名 Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.CommandBars("Cell").Controls(cnsMenuName).Delete On Error GoTo 0 End Sub Private Sub Workbook_Open() Const cnsFaceID As Long