三十路おっちゃん日記

ライター系記事とか,時事ニュースの感想とか,自作ソフトの説明とか

スポンサーサイト 

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
--/--/-- | トラックバック(-) | コメント(-)

すべてのサブフォルダを列挙(たぶん最速) 

vb6ですべてのサブフォルダを列挙って検索すると
Microsoft Scripting Runtime
だいだいコレを使ったサンプルが出てくる

再帰処理を使って割と短いコードで実現できるから
いままで使ってたけど、仕事で超大量検索が必要になり
余りに時間が掛かるので、もっと良いコードがないか探してみた
「フォルダ列挙 vb6」←こんなの

結論から言うと、全部にたり寄ったりで
真新しいコードは見つかりませんでした。

でも、どーしても高速化できないかと思い
vbの標準機能を使っていろいろコードを書いてたら
案外簡単なコードでなかなか早い処理ができました。

ネットの情報も便利だけど
キチンと処理を考えて、自分でコードを書くのも大事ですね


ま、唯一(?)の欠点というと
フォルダ順に列挙せず、階層順に列挙することかな

でも、Splitで分割して、配列をソートすりゃいい話だし
その処理を考慮しても、巷にあるサンプルよりも
高速に動作するんじゃないかな


高速に動作しなかったら
ごめんなさい(汗




'DirListBoxを1個追加して、visibleをfalseにしといてください
Private Sub Command7_Click()

Dim P As String, z As String
Dim i As Integer, S As String

P = "C:\Windows\" & vbCrLf

With Dir1
Do While Len(P) > 2
S = Mid(P, 1, InStr(P, vbCrLf) - 1)
P = Mid(P, InStr(P, vbCrLf) + 2)
z = z & S & vbCrLf
.Path = S
For i = 0 To .ListCount - 1
P = P & .List(i) & vbCrLf
Next i
Loop
End With

'MsgBox z

End Sub

2014/05/09 | TB(0) | CM(2)

excel2010 vba saveas 異なるバージョンのシートをひとつのブックにまとめて保存 


book1.xls(2000形式)
シート:帳票1

book2.xlsx(2010形式)
シート:帳票2,帳票3,帳票4

上記のような2個のファイルを結合して
2010形式で保存するマクロを作成する必要があった

マクロから、どちらかのシートをすべて移動させて
保存させようとするとエラー1004が発生して終了

んじゃエクセルで上記の操作をしても
保存に失敗しましたといってファイルが消滅する

ネットで丸一日調べたけど
有効な方法を結局見つけることはできなかった

とりあえずシートをまとめた段階で
印刷は出来るのでそれで諦めても良かったけど
意地になっていろいろ試してみた

その結果、やっと解決法が分かった

どうやら、シートをすべて移動させて
ブックが自動消滅することが原因らしい


なので、移動元にダミーのシートを新規追加して
必要なファイルを移動してもブックが自動消滅しないようにしたら
移動先のファイルがエラーが出ずに保存することができました。

同じ症状で困った人が出るかもしれないので
忘備録として記述しときます。





■book2のすべてのシートをbook1に移動してbook1を保存しようとすると1004エラーで落ちる
140424-1.png

■そこで、book2にダミーシートを追加してbook2が自動消滅しないようにする
140424-2.png

■すると、book1を無事に保存できたという話
140424-3.png

2014/04/25 | TB(0) | CM(2)

合格 

またひとつ資格試験に合格しました
来年度は本命の一本にしぼれます

よし がんばるぞ

グアテマラ旅行、二条城、平岡祐太、氷菓、あらかわ遊園。

 脚痩せ
2014/03/03 | TB(0) | CM(2)

1つある 

雛(ひな)人形の五人囃子(ごにんばやし)に、笛や太鼓の楽器を

持っていない人形はある?




ない
1つある
2つある
2014/03/03 | TB(0) | CM(0)

b) セゾンゴールド・アメリカン・エキスプレス・カード 

次の中で、申込日に即日利用が可能な即日発行に対応していないクレジットカードはどれ?

a) セゾンパール・アメリカン・エキスプレス・カード
b) セゾンゴールド・アメリカン・エキスプレス・カード
c) セゾンカード・インターナショナル
d) セゾンブルー・アメリカン・エキスプレス・カード
2014/03/02 | TB(0) | CM(0)

ダビデ像 

この中で、イタリア・ルネサンス期の彫刻家、画家、建築家、詩人

であったミケランジェロの作品は?




ダビデ像
モナリザ
ミロのヴィーナス
2014/03/02 | TB(0) | CM(0)

25% 

2013年3月8日の卒業式に関するライフメディア調査で

「今も好きな人の第2ボタンが欲しい」という気持ちがある人は何パーセント?(リサーチバンクより出題)




15%
25%
50%
75%
2014/03/01 | TB(0) | CM(0)

砂かけ爺 

漫画家水木しげるの代表作「ゲゲゲの鬼太郎」の

登場キャラクターで間違っているものは?




ねずみ男
猫娘
砂かけ爺
ぬりかべ
一反木綿
2014/03/01 | TB(0) | CM(0)

Front Engine Front Drive  

自動車の駆動方式の一種である「FF」(前輪駆動)

アルファベットは何を意味している?




Front Engine Front Transmission
Front Engine Front Wheel
Front Engine Front Drive
2014/03/01 | TB(0) | CM(0)

キキ 

宮崎駿監督によるアニメーション映画で有名な「魔女の宅急便」の

実写映画が今月公開されました。主人公の少女の名前は?




キキ
ララ
ジジ
キラ
2014/03/01 | TB(0) | CM(0)

コーラル 

3月の誕生石である「珊瑚」(サンゴ)のことを何と言う?






コーラル
オパール
アイボリー
2014/03/01 | TB(0) | CM(0)

スズラン 

英語で「lily of the valley」(谷間のゆり)と

書く植物は?




ヤマユリ
エーデルワイス
スズラン
2014/03/01 | TB(0) | CM(0)

41% 

2月5日のバレンタインデーに関するライフメディア調査で「ホワイトデーに本命チョコのお返しを期待する」人は何パーセント?(リサーチバンクより出題)

29%
41%
53%

2014/03/01 | TB(0) | CM(0)

d) レディスピンポイント 

フォンテーヌの女性向け増毛サービスの名前は何?

a) ウーマンポイント
b) ウーマンピンポイント
c) レディスポイント
d) レディスピンポイント
2014/03/01 | TB(0) | CM(0)

a) 石井竜也 

次の中で、国際結婚をした有名人は誰?

a) 石井竜也
b) ジェームス小野田
c) 矢口まり
d) 堺雅人
2014/03/01 | TB(0) | CM(0)


上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。