エクセルの学校：全文検索：Hyper Estraier：カレンダー

Results of 1 - 1 of about 1242 for カレンダー (0.001 sec.)

[[20150511141048]]: #score: 6118; @digest: 35a3948f06f3e6b5b84e7b9ab1f0bb71; @id: 67959; @mdate: 2015-05-12T05:18:29Z; @size: 3786; @type: text/plain; #keywords: txt2 (12643), ス¥ (10361), adsavecreateoverwrite (9854), adtypetext (8898), savetofile (7032), 存マ (3606), ウッ (3289), ンポ (3223), カレ (3158), 名. (2948), 列: (2852), charset (2690), objects (2483), google (2288), ルパ (2284), 経由 (2266), ッシ (2234), entry (2166), レン (1966), library (1959), ポー (1751), 2015 (1750), ンダ (1733), 照設 (1636), （ウ (1625), ダー (1606), シ） (1591), パス (1418), 火) (1369), ファ (980), ル名 (800), activex (781); 『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 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201505/20150511141048.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ