csvファイルのインポート

Excelブックを開く時、同一フォルダ内の csvファイルをインポートするVBAマクロです。
マクロ名"Auto_Open()"は、ファイルをオープンすると、マクロを実行します。

注)コメント行(先頭に ' )は、デフォルト設定なので削除しても動作します。
--------------------
Sub Auto_Open()
'   "アクティブシート/セル指定"
    Worksheets("Sheet1").Activate
    Range("A1").Activate
'   "外部データのインポート"
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & ActiveWorkbook.Path & "\sample.csv", Destination:=Range("A1"))
        .Name = "sample"
'       .FieldNames = True
'       .RowNumbers = False
'       .FillAdjacentFormulas = False
'       .PreserveFormatting = True
'       .RefreshOnFileOpen = False
'       "データ更新"
        .RefreshStyle = xlOverwriteCells
'       .SavePassword = False
'       .SaveData = True
'       "列幅自動調整なし"
        .AdjustColumnWidth = False
'       .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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
'       .TextFileTrailingMinusNumbers = True
'       "クエリテーブル更新"
        .Refresh BackgroundQuery:=False
'       "クエリテーブル削除"
        .Delete
    End With

CSV保存

Excel ブックを閉じる時、
xlsファイル保存(上書き)／csvファイル保存(上書き)を実行するVBAマクロです。
ちょっと気分転換に・・・・・。

--------------------
Sub Auto_close()
'
Dim mypath As String
Dim myfilename As String
    ' 確認メッセージ非表示
    Application.DisplayAlerts = False
        mypath = ActiveWorkbook.Path
        myfilename = Replace(ActiveWorkbook.Name, "xls", "csv")
        ' xls保存
        ActiveWorkbook.Save
        ' csv保存
        ActiveWorkbook.SaveAs Filename:=mypath & "\" & myfilename, FileFormat:=xlCSV
        ' 閉じる
        ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub
--------------------

Excel ブックにコードを保存する手順は、

続きを読む "CSV保存"

ソリッドの作図

先日、Jw_cadで三日月形をソリッドにする課題に挑戦したんですが・・・・・。
地道にソリッドを塗りつぶしていくと大変です。

AutoCADは、ハッチングコマンドから塗りつぶしを実行するのですが、
標準のハッチコマンドを実行するとダイアログが表示されてしまう為、手間が多いです。

操作を簡略するマクロを紹介します。

*^C^C-hatch;p;s;\;

上記マクロを使用すると、閉鎖図形の内側をクリックするだけで塗りつぶしが可能。

hatchの先頭に - を付けると、ハッチングのダイアログが表示されません。