Попробуйте
String subject = "Feedback";
String bodyText = "Enter text email";
String mailto = "mailto:bob@example.org" +
"?cc=" + "" +
"&subject=" + Uri.encode(subject) +
"&body=" + Uri.encode(bodyText);
Intent emailIntent = new Intent(Intent.ACTION_SENDTO);
emailIntent.setData(Uri.parse(mailto));
try {
startActivity(emailIntent);
} catch (ActivityNotFoundException e) {
//TODO: Handle case where no email app is available
}
Предоставлено: https://medium.com/@cketti/android-sending-email-using-intents-3da63662c58f
.
Вы можете просто использовать имя.
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
strFile = Workbooks(1).FullName
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _
& ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open strCon
''Pick one:
strSQL = "SELECT * FROM DataTable" ''Named range
strSQL = "SELECT * FROM [Sheet1$A1:E346]" ''Range
rs.Open strSQL, cn
Debug.Print rs.GetString
В ответ на вопрос, часть 2
я заметил, что вам нужны только сегодняшние записи, поэтому вы можете изменить sql на:
strSQL = "SELECT DISTINCT(Expiration) FROM [PositionSummaryTable] " _
& "where [Instrument Type] = 'LSTOPT' AND [Expiration]=#" _
& Format(Date(),"yyyy/mm/dd") & "#"
Вы не закрыли соединение:
cn.Close
А затем
Set rs=Nothing
Set cn=Nothing
Я не знаю о VBA, но есть код онлайн в Delphi и C #, который использует формат
SELECT * FROM [SheetName$A1:B2]
. Вы пробовали это?
Как насчет использования предложения LIKE?
Я пытался использовать:
select * from [PES$] where PID_TAG like '*5400001'
безуспешно ....
это работает:
select * from [PES$] where PID_TAG = 'PIT5400001'
но это не так Я хочу.
РЕДАКТИРОВАТЬ
хм ... нам нужно изменить подстановочные знаки, чтобы они работали ... не используйте *, используйте%