プロぐらまの独り言

3ヶ月ほど前に作成し、このブログでもご紹介したEXCELアドイン(ヘッダーフッタ一括設定アドイン）ですが、あれから、何人かの方から雑誌やHP掲載の依頼を頂きました。

本当に大した物ではないんですが、意外に見ている人がいるんだと少々驚いています。

VECTORに登録したことが大きいとは思うのですが、いくらフリーソフトと言えどソフトウェアの品質に責任があるのだと、実感しました。

初めてパソコンを触りだしたころからフリーソフトにはお世話になってきて、将来の夢はシェアウェア作者になってお金を儲ける事でしたが、実際のところはなかなか時間が作れません。

でも、これからも趣味の一部でソフトウェアは作っていきたいと思っています。いくつかアイデアはあるんですよ。また時間が取れてプログラムが作成できたらご紹介します。

• 
• 
• ツイート

EXCELには自動保存機能がアドインに標準装備されています。
ですが、この機能、開いているファイル自身を勝手に上書きしてしまうので、はっきり言って使えません。

そこで見つけたのが、Excel自動保存アドインVer1.2.1です。
指定したフォルダへ定間隔ごとに保存してくれる上、古いファイルは勝手に消してくれます。
しかもアクティブになっていない、裏に隠れているExcelブックを自動保存することも可能なので、これを入れているとかなり安心できます。
ただし、いっぱいファイルを開いて作業していると、保存するのに少々待たされます。

興味のある方は以下のリンクよりどうぞ

特選情報局

• 
• 
• ツイート

EXCELからCSVファイルを読む場合には、ファイルメニューからCSV形式を選べば読むことができます。
ただ、メニューからウィザードで選択する必要があったり、別シートに作成されたりして、毎回やるのはとっても面倒です。

特に、EXCELは文字を勝手に判断して、文字として表示したいのに勝手に日付型に変換してくれちゃったりするので、余計なお世話です。
1列ずつ型指定すればよいのですがこれが面倒。

そこで以下のようなVBAマクロを作りました。
これはCSVファイルを文字列型で読み込む機能を持っています。
新しいシートに作るのではなく、現在表示しているシートに表示することができます。
スピードもそんなに遅くないので、気になっている方は一度お試しください。



'全列文字列指定するための配列を準備
Dim fldInfo(1 To 256) As Variant
Dim i As Integer

For i = 1 To 256
fldInfo(i) = Array(i, 2) '全列を文字列に指定する
Next

Workbooks.OpenText fileName:="c:\test.csv", _
startRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Comma:=True, FieldInfo:=fldInfo

'新しいブックに読み込まれるのでその内容をコピーしてきて自身のシートへ貼り付ける
'新しいブックは要らなくなるので強制的に閉じる
ActiveSheet.UsedRange.Copy
ThisWorkbook.ActiveSheet.Cells(1, 1).PasteSpecial xlValues
Application.CutCopyMode = False
ActiveWorkbook.Close False

• 
• 
• ツイート