ADODB.RecordsetでRecordCountを取得する - 大人になったら肺呼吸
はじめに レガシーASP(クラシックASP)で、SQLを発行してデータベースからデータを取得する際に、結果として取得したレコードの件数を取得したい場合があります。このエントリでは、ADODB.RecordsetのRecordCountで正しいレコード数を取得する方法を紹介します。 RecordCountプロパティが-1を返す レコードの件数を取得するSQL（SELECT COUNT(*) FROM 〜）を使うことも可能ですが、データの取得と同時に件数も取得したいときは、RecordCountプロパティを参照することで、SELECTしたレコードの件数を取得することができます。 しかしながら、通常ではRecordCountプロパティは、-1を返します。これは、CursorLocationがデフォルト（サーバサイドカーソル）になっていることが原因です。 サーバーサイド カーソルを使用して作成した
とあるシステムエンジニアの日記 UTF-8からShift_JISに変換する
Sub UTF8toSJIS(ByVal InFile As String, ByVal OutFile As String) Const adTypeText = 2 Const adSaveCreateOverWrite = 2 Dim myST1 As Object, myST2 As Object Set myST1 = CreateObject("ADODB.Stream") Set myST2 = CreateObject("ADODB.Stream") myST1.Type = adTypeText myST1.Charset = "UTF-8" myST1.Open myST1.LoadFromFile InFile myST1.Position = 0 myST2.Type = adTypeText myST2.Charset = "Shift_J
LFコードで改行したファイルを読み込む：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug
ツイート ■CSVファイルを読み込む 次のようなCSVファイルがあるとします。 ---- Staff.csv -------------------------- 社員番号,氏名,入社年度,部署名 W2870,丸の内花子,2009,経理部 M2079,東京太郎,2005,営業一部 ------------------------------------------- このCSVファイルを読み込むには、次のようにします。 Sub Sample1() Dim buf As String, tmp As Variant, i As Long Open "C:\Data\Staff.csv" For Input As #1 Do Until EOF(1) i = i + 1 Line Input #1, buf tmp = Split(buf, ",") Cells(i, 1).Resize(1,
ByVal と ByRef
プロシージャを作るときに必要な知識として“ByVal と ByRef の違い”があります。これは、各引数に付けるキーワードで、“引数の値の渡され方”を指定するものです。通常は、ByVal で定義しますが、ByRef と定義することによって特殊な動作を行います。 ByRef「参照渡し」 引数を ByRef で宣言すると、プロシージャの呼び出し側にも影響を与える引数になります。 Private Sub MyProcByRef(ByRef Argument As Long) Argument = 100 End Sub Private Sub btnByRef_Click() Dim Arg As Long Debug.Print "ByRef:" Debug.Print "Arg = " & Arg Debug.Print "Call MyProcByRef(Arg)" Call
クレジットカード現金化の高還元率の優良店を選ぶためには
クレジットカード現金化の高還元率の優良店を選ぶためには クレジットカード現金化の優良店を選ぶポイントは、換金率やスピードもありますが、そのほかにも見ておきたいポイントもあります。 お金に厳しい人が利用しますので、手数料やキャンペーンの有無、価格交渉ができる業者ということは見ておきたいところです。 それぞれどのような内容なのでしょうか。 手数料が無料であるクレジットカード現金化の業者には、手数料をすべて無料でしてくれるところがあります。 業者によっては、単純に手数料という名目で業者側の利益がとられていたり、振込手数料、事務手数料という名目で少額ながらお金がかかることがあります。 せっかく高い換金率が記載されていても、手数料の分が差し引かれることで、損をしたような気持ちになったり後から気づくこともあります。 これらの手数料は最初から公式ホームページに記載がある場合は了承したうえで申し込みもでき
Office TANAKA - Excel VBA Tips[OSのバージョンを調べる]
Excel 2007はベータ版で確認しましたが、まず間違いないでしょう。 また、Versionプロパティの返り値は文字列ですので留意してください。たまに下記のようなコードを見ます。 Sub Sample2() If Application.Version > 10 Then MsgBox "OK" Else MsgBox "NG" End If End Sub このとき「本来Versionプロパティの返り値は文字列なのだけど、VBAは型キャストを自動的にやってくれるので、手を抜いて文字列と数値で比較させちゃえ」と正確に認識していないのでしたら、次のように数値に変換してから比較することをお勧めします。こういうところで手を抜くと、Excelがバージョンアップしたときなどに『動かない...＿|￣|○』と慌てる原因になります。 Sub Sample2() If CInt(Application.V
画像を削除したい（ＶＢＡ） - OKWAVE
こんにちは。 ２つほどサンプルを。ご参考までに。 ' // C5セル内に画像左上角がある場合は削除 ' // 画像右下がC5セルからはみ出しているかどうかを問わない Sub SampleProc1() Dim Pic As Picture For Each Pic In ActiveSheet.Pictures If Pic.TopLeftCell.Address = "$C$5" Then Pic.Delete End If Next End Sub ' // セルの選択範囲内に完全に含まれる画像を削除 Sub SampleProc2() Dim Pic As Picture Dim r As Range If UCase$(TypeName(Selection)) <> "RANGE" Then Exit Sub For Each Pic In ActiveSheet.Picture
形式を選択して貼り付ける(PasteSpecialメソッド)：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug
形式を選択して貼り付ける(PasteSpecialメソッド) (Excel 2000/2002/2003/2007/2010/2013/2016) ツイート マニュアル操作による「形式を選択して貼り付け」の機能のほぼ全てを実現します。例外は「リンク貼り付け」で、この場合はPasteメソッドを使用します。引数Pasteが「貼り付け」、Operationが「演算」の各項目に対応しています。次に示す表で確認してください。
VBA応用(絶対パス指定と相対パス指定)
掲示板に時々挙げられる話題です。 「カレントフォルダ」とか「カレントパス」が、言葉だけそのまま一人歩きするため、結構、誤解されたままで済まされているのでは？、と疑問になりました。 「相対パス指定」を使う限りは「カレントフォルダ」が起点になるのでその所在は重要なのですが、Excelの場合は、前後に行なう「ファイルを開く」の操作などで「カレントフォルダ」は一定しません。 この状況を知らないで、「カレントフォルダ」とは「そのブックを開いたフォルダのこと」と信じてしまっている人が多いような気がします。 「カレントフォルダ」とはどこ？ 「カレントフォルダ」は、「CurDir関数」で取得できます。これがどこのフォルダを指しているのか確認してみましょう。 まず、スタートメニューから単純に「Microsoft Excel」を開きます。 続いて、「Visual Basic Editor」を開きます。（Alt
VBA応用(セルのコメントの操作する。)
少し遊んでもみました。 このページは長い間更新をしておらず、最初のサンプルコードだけでしたが、よく見るとコメントをいちいちSelectして書式を設定している記述だったので、 これを直そうと思ったのですが、ついでなのでコメントが「図形」だということを利用して、少し「いたずら」をやってみたのが3番目のサンプルです。 以前は手操作でも、コメントを選択して「図形の調整」「オートシェイプの変更」を行なえばできることなのですが、どうやらExcel2007以降ではマクロを作成しないとできなくなってしまったということです。 セルのコメントもVBAから動的に変更できます。 サンプルは、A1セルのWorksheet_Changeイベントでコメントを書き換えています。 (画像をクリックすると、このサンプルがダウンロードできます) このサンプルでは、セルの内容をコメント上に表示させています。 このマクロは、ワーク
IF関数＆IS関数の使い方:Excel関数
【解答例】 C3="OK" で条件判定を行うと 大文字/小文字の区別がされませんので =IF(C3="OK",25,0) で計算できます。 大文字と小文字の区別をしたい時はどうすればよいでしょうか? (上の表で合計得点を25とするには？) 大文字/小文字の区別する場合は下のEXACT関数を使います。 文字列の比較 topへ イグザクト =EXACT(文字列1，文字列2） 2つの文字列を比較して、まったく同じである場合は TRUE を、そうでない場合は FALSE を返します。 英字の大文字と小文字は区別されます。 ちなみに、EXACT関数で大文字と小文字の区別をするときや文字の違いを調べると、下図のE列のような結果となります。 D3セルに =IF(EXACT(C3,"OK"),25,0) と入力して、D6セルまで数式をコピーします。 これは「C3セルの値が OK と同じなら 25、
.NET TIPS プログラムからブラウザやメーラを起動するには？ - C# VB.NET - ＠IT
「TIPS：ほかのアプリケーションを実行するには？」では、プログラム内からほかのアプリケーションを実行する方法を紹介した。この方法を利用すれば、プログラムからWebサイトのURLアドレスを指定してデフォルト・ブラウザでWebページを開いたり、メール・アドレスなどを指定してデフォルト・メーラで新規メール作成ウィンドウを開いたりすることが可能だ。本稿では、それらの具体的な実装方法を紹介する。 URLアドレスを指定してデフォルト・ブラウザでWebページを開く方法 URLアドレスを指定してデフォルトのブラウザでWebページを開く方法については、「TIPS：ほかのアプリケーションを実行するには？」の中でサンプル・プログラムとして紹介している。 具体的な実装方法は、Processクラス（System.Diagnostics名前空間）のStartメソッドに「http://」や「https://」で始まる
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
VBA の Redim Preserve について - 犬式
リボンを非表示にする−Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)":エクセルマクロ・Excel VBAの使い方/Applicationオブジェクト
タブコントロールのページを表示／非表示させたいのです。 --Access Club 超初心者 FORUM--
Access2007 ADO Like演算子のワイルドカード：Keep It Simple, Stupid：So-netブログ
http://www.keep-on.com/excelyou/2001lng4/200105/01050195.txt
[FROG ふろっぐ][エクセル][EXCEL VBA ページ設定]
Excelマクロ・VBAのお勉強
PC
