Loading…

スポンサーサイト

Posted by Ma-Mo on --.-- スポンサー広告
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

googleカレンダーにExcelからCSVでインポートする方法

Posted by Ma-Mo on 03.2012 クラウド×スマホ   1 comments   0 trackback
Tag :googleカレンダー クラウド
This week
This week / Mary-Lynn


こんにちは、@ma-moです。今日は、この季節にはめずらしく風が強かったですね。

私のスケジュールは、オン・オフともにGoogleカレンダーで管理をしています。
1か月の予定などを入力するときに、めんどくさいので、Excelからcsvで予定をインポートするしているので紹介します。



①Excelで予定を作成する

 
セルにそれぞれ、subject=件名,StartDate=開始日,StartTime=開始時間,End Dat=終了日,End Time=終了時間,Location=場所を入力する。(EndDateとEndTimeは入力しないと、デフォルトで1時間後になる)

excel画面


②CSVで保存する。

 普通にcsv形式に保存したら、エンコードの種類がUTF-8でないため、インポートすると文字化してしましますので、変換マクロを利用します。@stabuckyさんを参考⇒http://stabucky.com/wp/archives/2429

VBA.jpg

マクロを追加する手順
 ①ExcelVBAを開き、挿入⇒標準モジュールを追加する。
 ②下記のコードをコピペする
 ③Excelに戻り、表示⇒マクロ⇒マクロの実行をする。
 ④インポートファイルimport.csvができる。


Sub Googleカレンダーインポート用CSV出力()
fnsave = Application.GetSaveAsFilename( _
"import.csv", "CSV(*.csv),*.csv")
If fnsave = False Then Exit Sub
mytext = ""
i = 1
Do
j = 1
Do
If Right(Cells(1, j), 4) = "Date" Then
temp = Format(Cells(i, j), "yyyy/mm/dd")
ElseIf Right(Cells(1, j), 4) = "Time" Then
temp = Format(Cells(i, j), "hh:mm")
Else
temp = Cells(i, j)
End If
mytext = mytext & temp & ","
j = j + 1
Loop Until Cells(i, j) = ""
mytext = Left(mytext, Len(mytext) - 1) & vbCrLf
i = i + 1
Loop Until Cells(i, 1) = ""
mytext = Left(mytext, Len(mytext) - Len(vbCrLf))

With CreateObject("ADODB.Stream")
.Type = 2
.Charset = "utf-8"
.Open
.WriteText mytext, 1
.SaveToFile fnsave, 2
.Close
End With
End Sub




③googleカレンダーにインポートする。

 
・googleカレンダーの設定画面から「googleカレンダーの設定」⇒「カレンダーをインポート」
  ・②で作成したimport.csvを選択する。
  ・インポートしたいカレンダー先を選択してインポートする

カレンダーインポート





④インポート終了


インポート

これで、一括入力も可能になります。excelを自分仕様に作り込むと便利な物ができると思います。



スポンサーサイト

このコメントは管理者の承認待ちです
2014.10.03 16:40 | | # [edit]


  • password
  • 管理者にだけ表示を許可する

trackbackURL:http://jikemamo.blog10.fc2.com/tb.php/266-d719f47c

プロフィール

Ma-Mo

Author:Ma-Mo
マーモとは、スイスに行った時に、見たマーモットから由来しています。
マーモの日常の出来事や写真をUPします。

カレンダー

プルダウン 降順 昇順 年別

09月 | 2017年10月 | 11月
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 - - - -


MaMoTwitter

Ma-Moカウンター

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。