Set sm_Collector = CreateObject("ADODB.Stream") sm_Collector.Open sm_Collector.Type = 2 sm_Collector.WriteText "package mbis.kyogaku_batch.collector;" sm_Collector.SaveToFile path & filename_Collector & ".java", 2 sm_Collector.flush sm_Collector.Close
我的环境:日文操作系统,英文Excel,日文Eclipse,项目编码:UTF-8