検索
フォロー中のブログ
リンク
カテゴリ
以前の記事
2011年 12月 2011年 04月 2010年 10月 2010年 08月 2010年 07月 2010年 04月 2010年 02月 2009年 12月 2009年 09月 2009年 08月 2009年 07月 2009年 05月 2009年 03月 2009年 02月 2009年 01月 2008年 12月 2008年 11月 2008年 10月 2008年 09月 2008年 07月 2008年 06月 2008年 05月 2008年 03月 2008年 02月 2008年 01月 2007年 12月 2007年 11月 2007年 10月 2007年 08月 2007年 07月 2007年 05月 2007年 04月 2007年 03月 2007年 02月 2007年 01月 2006年 12月 2006年 11月 2006年 10月 2006年 09月 2006年 08月 2006年 07月 2006年 06月 2006年 05月 2006年 04月 2006年 03月 2006年 02月 2006年 01月 2005年 12月 2005年 11月 2005年 10月 2005年 09月 2005年 08月 2005年 07月 2005年 06月 2005年 05月 2005年 04月 2005年 03月 2005年 02月 2005年 01月 2004年 11月 2004年 08月 2004年 07月 最新のトラックバック
ライフログ
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧
|
2005年 10月 07日
BJDのメールログをExcelに取り込むマクロを作成しました。
日付ごとにログを出力するようにBDJで設定している場合には、日付ごとにシートが作成されます。また、生徒同士の通信のみフィルタリングされるように設定しています。ソースコード内の「先生のメールアドレス」のところに、教員のメールアドレスを設定してください。また「通信ログ履歴.xls」がマクロを登録し、ログを取り込んでいるExcelファイルです。 ※ファイルを選択しなかったときにエラーが発生しますが、たいした問題ではないので修正していません。 ---ここから--- Dim intSheetsCount As Integer Dim strOpenLogFilePath As String Dim strOpenLogFileName As String intSheetsCount = Workbooks("通信ログ履歴.xls").Sheets.Count strOpenLogFilePath = Application.GetOpenFilename() strOpenLogFileName = Replace(Dir(strOpenLogFilePath), ".Log", "") Workbooks.OpenText Filename:=strOpenLogFilePath, Origin:= _ 932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _ Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _ , 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1)), _ TrailingMinusNumbers:=True Rows("1:1").Select Selection.AutoFilter ActiveWindow.SmallScroll Down:=-18 Selection.AutoFilter Field:=5, Criteria1:="=FROM*", Operator:=xlAnd, _ Criteria2:="<>FROM:先生のメールアドレス" Selection.AutoFilter Field:=6, Criteria1:="<>TO:先生のメールアドレス", Operator:= _ xlAnd Columns("A:A").EntireColumn.AutoFit Columns("E:E").EntireColumn.AutoFit Sheets(strOpenLogFileName).Select Sheets(strOpenLogFileName).Move After:=Workbooks("通信ログ履歴.xls").Sheets(intSheetsCount) ---ここまで--- 以上です。 Excel2002(XP)のマクロ記録機能を利用して、一部ソースを修正しただけのものです。 あまりきれいなソースではありませんが、ご参考まで。
by vitz3101
| 2005-10-07 09:07
| 情報教育
|
ファン申請 |
||