Googleカレンダー、インポート用CSVを作成するマクロ | You Look Too CoolSub 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
