从Access中格式化Excel文本字段

我在Excel电子表格中有一个像“Saturday，November 28，2015 11:59:59 PM GMT-5”这样的string，并想在使用VBA将其导入到Access之前删除星期几和时区。 我试过了 ：

ExcelWorksheet.Cells（1+ counter，nIdCol）= left（（ExcelWorksheet.Cells（1 + counter，nIdCol）），Find（“GMT”，ExcelWorksheet.Cells（1 + counter，nIdCol） – 1））“

但是发现“Find”不是一个Access函数。

任何想法做到这一点？

Answer 1

如果您想在Excel中执行此操作，在导入到使用VBA的Access之前，可以使用此公式来修剪它们。 注意：我假设你的每个string在最后都会有“GMT”来表示时区，并且在一周之后会有一个。

如果在Saturday, November 28, 2015 11:59:59 PM GMT-5在A1，则在B1中使用这个公式：

=TRIM(MID(A1,SEARCH(", ",A1)+1,SEARCH("GMT",A1)-SEARCH(", ",A1)-2))

Answer 2

尝试使用Instr（）函数。 用FindreplaceFind（“GMT”）

 Instr(string:=ExcelWorksheet.Cells(1 + counter, nIdCol).Value, substring:="GMT") - 1 

更多关于Instr（）函数： http : //www.techonthenet.com/excel/formulas/instr.php