[[20150511141048]]　『Googleカレンダー用のCSV　UTF-8形式の保存マクロ』（？？？）　ページの最後に飛ぶ

『Googleカレンダー用のCSV　UTF-8形式の保存マクロと自動インポート』（？？？）

Excelで作成したカレンダーの内容をsheet1に反映させ
リスト上にA列：subject B列：Start Date　C列：Start　Time　D列：End　Date　E列：作業用

として作成しています。
Sheet1のみをCSVのUTF-8形式で保存をかけ
自動でGoogleカレンダーを開くかしてその後は手作業でインポート
理想はExcelのカレンダー（Sheet2にあります）にボタンを設置して
自動CSV保存orGoogleカレンダーにインポートしたいのですが
VBAでできますでしょうか？

＜使用 Excel：Excel2010、使用 OS：Windows8 ＞

こんにちは

こんな感じでしょうか？

Sub test()

    Dim c       As Long
    Dim i       As Long
    Dim r       As Range
    Dim txt2    As Object

    Set txt2 = CreateObject("ADODB.Stream")

    txt2.Type = adTypeText

    txt2.Charset = "UTF-8"

    txt2.Open

    With Worksheets("Sheet1")
        c = 5
        ReDim v(1 To c)
        For Each r In .Range("A1", .Range("A" & Rows.Count).End(xlUp))
            For i = 1 To c
                v(i) = r(1, i).Value
            Next
            txt2.WriteText Join(v, ","), adWriteLine
        Next

    End With

    txt2.SaveToFile ("ファイルパス\ファイル名.csv"), adSaveCreateOverWrite

    txt2.Close

    Set txt2 = Nothing

End Sub
（ウッシ） 2015/05/11(月) 14:30

ありがとうございます！試してみたのですが、
txt2.Type = adTypeTextの部分で引数が間違った型、許容範囲外、または競合しています。
のエラーコード3001が出てしまい止まってしまいました…
（？？？） 2015/05/12(火) 09:51

こんにちは

済みません、

Visual Basic Editor のメニューから［ツール］→［参照設定］を選び，
［参照可能なライブラリファイル］の中から

 "Microsoft ActiveX Data Objects x.x Library" にチェックを入れて下さい。

x.x　は多分 2.8 とかで。

（ウッシ） 2015/05/12(火) 10:03

こんにちは、チェック後上記の部分はひっかからず

  txt2.SaveToFile ("ファイルパス\ファイル名.csv"), adSaveCreateOverWrite
で止まってしまったのですが
ここはファイルパスとファイル名を決めなければいけないということですか？？？
（？？？） 2015/05/12(火) 10:38

こんにちは

そうです、

("ファイルパス\ファイル名.csv")

は、例えば

("C:\temp\text.csv")

とかです。

（ウッシ） 2015/05/12(火) 10:43

できました！！！ありがとうございます！
ちなみになんですが、このコードに自動でGoogleカレンダーにアクセスしてインポート
画面を開くことは可能でしょうか？
（？？？） 2015/05/12(火) 12:00

こんにちは

それ程の手間ではないので自分は手作業でやっています。

きっと出来るとは思いますけど・・・誰かコード書いて m(..)m

（ウッシ） 2015/05/12(火) 12:03

こんなの見つかりました。

https://github.com/honda0510/Google-Calendar-Library-for-VBA

（ウッシ） 2015/05/12(火) 12:07

わざわざありがとうございます！
モジュールのインポート方法ご存知だったりしますでしょうか…？
（？？？） 2015/05/12(火) 12:41

あと、A3のentry.xmlの内容がよくわからず困ってしまいました。
こういうのは初めてなのでご伝授いただけないでしょうか…
（？？？） 2015/05/12(火) 12:48

こんにちは

コード内のコメントにある参照設定をセットしてから、

モジュールとクラスはVBA側で挿入して、名前変更して、内容をExcelシートを経由して
貼り付けて下さい。

entry.xmlも適当に新規テキスト文書作って、内容をExcelシートを経由して
貼り付けてエディタソフト等を使って、utf-8形式で保存し、名前をentry.xmlにして下さい。

セル
A1にメールアドレス
A2にパスワード
A3にentry.xmlのフルパス

をセットしてtestを実行すれば出来るはずなのですが、エラーになります。

Googleカレンダー側の仕様が変わったのかも知れません。

これ以上は他の方のレスを待つか、WEBで検索してみるといい方法が見つかるかも知れません。

（ウッシ） 2015/05/12(火) 14:12

エラーになってしまうんですね…
ありがとうございました！また色々調べてみます！
（？？？） 2015/05/12(火) 14:18

コメント返信：

[ 一覧(最新更新順) ]

[[20150511141048]] 『Googleカレンダー用のCSV UTF-8形式の保存マクロ』（？？？） ページの最後に飛ぶ

[[20150511141048]]　『Googleカレンダー用のCSV　UTF-8形式の保存マクロ』（？？？）　ページの最後に飛ぶ